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ABSTRACT 


A debugger has been designed and implemented to debug MC68020 assembly 
language programs which run on an MC68020-based Educational Computer Board 
(ECB). The debugger consists of two physically separate modules and runs on both a 
Macintosh and on the ECB. The debugger and the ECB communicate via an RS232 
interface at a Baud rate of 9600. 

In addition to basic debugger commands for the MC68020, the debugger also 
supports commands which enable the user to examine or modify the MC68881l 
Coprocessor’s registers. An important feature is that it is user-friendly. It utilizes 
pull-down menus, where the user can select and execute the desired command simply 
by clicking the mouse. This debugger and a LightspeedC compiler provides the user 
with an integrated environment, where he or she can edit, assemble and debug 
assembly language programs. 

Applications of this software tool, and the accompanying ECB, can be used for 
both research and teaching. For example, it can replace the current system that supports 


the Naval Postgraduate School course EC2800. 
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I. INTRODUCTION 


There has been a very rapid growth in the use of microprocessors. With the 
advent of physically smaller but functionally more capable and faster microprocessors, 
microprocessor systems, besides being cheap and practical, are becoming almost 
equivalent to the capability and speed of main-frame computers of the past. 
Considering all these reasons, a complete and thorough understanding of the capabilities 
of microprocessors and microcomputers is essential. A microprocessor software 
development system is a necessary part of this. 

The debugger created in this thesis study is software part of a complete 
MC68020 microprocessor development system. The hardware part is the MC68020 
based Educational Computer Board (ECB), which is developed by Tugcu[1989]. In fact, 
the development of the software and the hardware was done simultaneously. 

A debugger for the MC68000 (called Tutor Monitor [Ref. 1]), was created by the 
Motorola Company for training and operational use. As far as the execution of a user 
program is concerned, this debugger is capable of doing the same things which the 
Tutor Monitor can do. To be more accurate, the collection of commands provided in 
this debugger is a proper subset of the commands present in the Motorola’s Tutor 
Monitor. Since the announcement of the Motorola’s ECB, ten years ago, there have 
been significant 1mprovements in microprocessor speed, instruction sets, etc. Also, the 
utilization of coprocessors has added more precision in scientific calculations. This 
debugger, which was designed to be used in debugging MC68000-MC68020 assembly 
language programs (for MC68020 instructions, see Ref. 2), is also capable of handling 


MC68881 Coprocessor-related instructions (for MC68881 instructions, see Ref. 3), 


thereby giving the user higher precision debug capabilities. This feature is not present 
in Tutor Monitor. 

Part of this debugger, the monitor, runs on the ECB and carries out the 
commands sent by the main program. The monitor program also _ includes 
communication routines. With the use of these two routines, serial communication is 
done in software. 

One of the advantages of this system is that it does not require an extra dumb 
terminal, which is needed for the Motorola’s ECB System. Thus, this debugger can be 


viewed as an up-to-date version of the Motorola’s debugger. 


Il. A GENERAL OVERVIEW OF DEBUGGERS AND ASSEMBLY LANGUAGE 


The goal of this chapter is to give a general background about assembly language 
and debuggers. Assuming that this debugger is used as a teaching aid in a 
microprocessor architecture course (e.g., EC2800 at the Naval Postgraduate School) and 
the student is a beginner in this area, the information contained in this chapter will 


serve as introduction. 


A. WHAT IS AN ASSEMBLY LANGUAGE ? 

An assembly language is a level of language between the machine language and 
high level language. Machine language consists of a series of binary digits which is the 
computer can interpret directly but is very hard for humans to use. In assembly 
language, each machine instruction is represented by a mnemonic, and there are no 
binary digits. For example, it is a lot easier to remember the words like MOVE, ADD, 
SUB, etc., than to remember a series of binary digits corresponding to these 
instructions. Essentially, assembly language is an English-like version of machine 
language, and there is a One-to-one correspondence between instructions in these two 
languages. 

In addition to representing the instructions by mnemonics, memory locations can 
also be given labels. In this way the assembler keeps track of the addresses rather than 
the programmer. 

With the design of the intelligent compilers, high level languages became more 
capable and more widely used. Meanwhile, assembly language became less practical 


and less important in comparison. High level languages are easier to learn and most 


importantly, they are portable. On the other hand, assembly languages are not that 
simple and portable. They are heavily machine dependent. 

Despite the disadvantages mentioned above, assembly language is still used and 
has some advantages over high level languages. Assembly language presents all the 
available resources of the processor to the user. It allows more effective code 
(sometimes using less memory). 

1. Format of Assembly Language Programs 


Assembly language program statements can be considered to have four parts. 


e Label field 
e Opcode field 
e Operand field 


¢ Comment field 


As mentioned above, labels are used to refer to memory locations, as symbols 
rather than absolute addresses. Labels, usually start in the first column. Depending on 
the assembler, most labels are followed by a °:". 

The opcode field contains the mnemonic for the instruction to be executed. Also, 
assembler directives such as DC (Define Constant), DB (Define Byte), etc., can be 
included in this field. 

The operand field contains the source and destination locations which will take 
part in the execution of that instruction. They can be registers or memory locations. 

The comment field serves as a place where the programmer can explain his 
program. Comments are especially helpful in assembly language programs, since such 


programs are substantially more difficult to understand than high level languages. 


Without comments, it may not even be possible to understand another programmer’s 


assembly language program. For these reasons, an assembly language programmer 
should have the habit of writing down comments. 

Two sample assembly language programs are given in Appendix G. Anything 
preceded by a semicolon is considered to be a comment, which is ignored by the 
assembler. Sample program #1, copies the elements of an array of bytes A[5] to an 
array B[5]. When this program is assembled, a listing file is obtained, which is given in 
Appendix G. There are two more fields in the listing file. These fields are introduced 
by the assembler. The first shows the addresses and the second field shows the 
hexadecimal representation of the machine code corresponding to the instructions. By 
looking at the address field, the user can easily figure out how many bytes of code is 
produced by each mnemonic instruction. Sample program #2 serves as an example of 


coprocessor instructions. 


B. WHAT IS A DEBUGGER ? 

Debuggers are software tools which help in developing and testing programs. 
These programs might be written in assembly language or in a high level language. 

The debugger, created in this thesis study, is designed and implemented to debug 
MC68020 assembly language programs. By using this debugger, the user can create his 
assembly language program, assemble it, download it to ECB, and run it. He can also 
disassemble his code (Disassemble means the hexadecimal representation of memory 
contents are converted into corresponding mnemonic instructions), display or modify 
the memory or register contents. In short, he can control the execution of his program. 

As an example, let us take the sample program #1 (see Appendix G) and further 
let us assume that the user sets a Breakpoint at address $001A (Dollar sign indicates a 
hexadecimal number) which is the label LOOP. The user also sets the program counter 


to $000A which is the beginning address of his program. When he starts to run his 


program, each time the breakpoint is reached, execution will stop and control is given 
to the debugger. He will be able to see the various register and memory contents. At 
this step he can make some memory or register modifications or he can continue 
without any change. On the other hand, if the user chooses to Trace Branch he will 
be able to see the same kind of information as many times as a branch is indeed taken. 

Another choice may be setting a breakpoint at address $0024 which is the end of 
user program. If the user does not select any Trace option, he will see the information 
only once, at the end of execution of his program, skipping the intermediate parts. With 
the selection of a Trace option or by setting breakpoints and breakcounts or just by 
removing the present breakpoints, the user can have a variety of levels of control when 
executing his program. 

More information about the usage and capabilities of this debugger can be 


obtained from Appendix F. 


Ii. DESIGN AND IMPLEMENTATION OF THE DEBUGGER 


This chapter gives a brief description about the design considerations and 
implementation of this debugger. More detailed information can be obtained from the 


appendices which are referenced, when necessary, throughout the chapter. 


A. DESIGN OBJECTIVES 


The design goals are listed below: 


e This debugger should be user-friendly. 
e It should be capable of supporting essential debugger commands. 


e It should also support MC68881 Coprocessor related commands. 


An important aspect about user-friendliness is that the user should not be forced 
to memorize a number of commands. For this reason, it was decided to implement this 
debugger on a Macintosh computer. The pull-down menu capabilities of the Macintosh 
made it possible for this debugger to be a menu-driven software tool. 

On the other hand, only basic debugging commands were supported for reasons 
of simplicity. These commands are the most widely used. In general, these commands 


can be put in three categories: 


1. Memory display/modify commands 
2. Register (either microprocessor’s or its coprocessor’s) display/modify commands 


3. Control commands (e.g., setting a breakpoint, tracing, etc.) 


After determining the design objectives, it was further decided to design the 


debugger as two separate modules. This was an inevitable result of the fact that this 


debugger is to be used in debugging assembly language programs which run on the 
ECB. As a result, the following two modules are implemented: 
e The main program which is mostly written in C and runs on a Macintosh. (Part 
of main prograin, which does the disassembly, is written in assembly language.) 
e The support program (monitor) which is written in assembly language and runs 
on the ECB. 
The distribution of the functions to the main program and the monitor program 
are described in the following two subsections. 
1. The Functions of the Main Program 


The functions provided by the main program are listed as follows: 


e Display menus through which the user interface is provided. 

e Alert the user if something goes wrong either in the Macintosh: or in the ECB. 

e Provide serial communication with the ECB, and with the printer at a Baud rate 
of 9600. 
2. The Functions of the Monitor Program 


The functions provided by monitor program can be listed as follows: 


e Provide serial communication with the Macintosh at a Baud rate of 9600. 
e Execute the command which is sent by the main program. 


e Provide an Abort option to the user. 


In the following two sections, a brief discussion is given of the design and 


implementation of these two modules. 


B. MAIN PROGRAM 

The main program consists of functions contained in five different files. They are 
monitor.c, download.c, disasm.c, menu.c, and test.c. Except for the code written for the 
disassembler which is written in assembly language, the rest of the code is written in C 
Language. The source code for the disassembler in the Tutor Monitor [Ref. 1] is 
obtained from the Motorola Company, and then with the addition of some changes, it 
was adapted to the Macintosh. 

When the debugger is first run, it starts execution with an initialization step. The 
support of serial communication with ECB and serial printer, through the modem port, 
and serial printer port respectively, are done in download.c during the initialization 
process. The allocation of the required input and output buffers, the baud rate, etc., are 
all done on the entry to the program main(). 

In order to get the start and end addresses of the user program which is to be 
downloaded, test.c is run once. After that, main() displays the main menu, awaiting a 
user Command which could be the execution of a single function such as Clearscreen or 
the selection of any particular menu. 


The choice of menus are listed below: 


1. Options menu 

2. Registers menu 

3. Floating Point Registers menu 
4. Memory display menu 

5. Memory modify menu 

6. Go menu. 


The user can do different things in different menus. A flowchart for each menu is 


given in Appendix A. This gives a clear understanding about how the menus are 


organized and how switching occurs between the menus. In addition to the information 
given in Appendix A, more information, such as creating the menus, implementing the 
user interface, etc., is given in Appendix C, where all the source code of the debugger 


are shown. 


C. MONITOR PROGRAM 

This is a support program for the main debugger which runs on the Macintosh. 
The monitor program is EPROM resident and runs both in RAM and ROM. While 
running, it occupies lower RAM address space. The addresses below 1000 hexadecimal 
are reserved for the monitor program. The user program should not reside in the 
memory locations which are reserved for the system. Even though the debugger runs on 
the Macintosh, the user assembly language program will run on the ECB. So, there has 
to be a way of reaching its internal registers, its memory etc. These are all ECB-related 
events. That is why the monitor program was implemented. The whole code is written 
assembly language. When the ECB is powered up, or it is Reset, the monitor program 
initializes the system and waits for a Macintosh command. During initialization phase, 
EPROM contents are copied to RAM, stack pointers are initialized, and program 
execution is switched to RAM. 

After the initialization phase, the monitor simply loops endlessly, awaiting a 
command from the Macintosh. To provide an efficient way of receiving commands and 
processing them, there is a certain protocol established between the ECB and the 
Macintosh (detailed information about this protocol is given in Appendix B). According 
to this protocol, each command has a distinct one-byte-long code. Upon receiving this 
code, its corresponding command (such as memory write/display, etc.) is executed. If 
the command is a Go command, program execution continues at a user-provided 


program counter value. Following the execution of the user command, the monitor 


continues to loop, waiting for the next command. 

Among the functions of the monitor routine are providing communication with 
the Macintosh and supporting an Abort option. These two functions are briefly pointed 
Out in the following two subsections. Furthermore, a detailed information about monitor 
program is given in Appendix C. 

1. Serial Communication in Software 

This debugger, as it was mentioned before, consists of two separate 
programs running on two different systems, namely the Macintosh and the ECB. This 
requires communication between the two. The protocol provided is typical of serial 
communication (at a Baud rate of 9600). As far as the ECB is concerned, this could be 
done in hardware, with the utilization of commercially available integrated circuits. The 
other possible choice was to do this in software (further information can be obtained 
from Ref. 4). The software approach was selected, slightly simplifying the hardware. 

On the Macintosh side, a modem port is used for serial communication with the 
ECB. The modem port is initialized to a Baud rate of 9600 by download.c. In order to 
send or receive bytes, already available system calls are utilized. On the ECB side, two 
routines are written to provide serial communication with the Macintosh. RUART and 
SUART are the routines which provide communication outside of the ECB. RUART 
receives the incoming bytes via the RS232 input. SUART, on the other hand, transmits 
bytes via the RS232 interface. Both routines work at a Baud rate of 9600. This Baud 
rate is established by a clock frequency of 16 MHz. When the frequency is halved, for 
instance, so 1s the Baud rate. 

When transmitting data at a Baud rate of 9600, the bits are 104.7 microseconds 
apart. Starting with the clock cycles needed to execute some of the instructions, an 
estimate of what instructions to use, how many times to loop in order to establish 


enough delay for a Baud rate of 9600, 1s made. Then, using the estimated values, an 
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approximate delay was obtained. Later on, by trial and error, enough delay is provided 
for a Baud rate of 9600. 

In order to receive the incoming bytes, the RS232 input has to be sampled once 
every 104.7 microseconds. In this way, every single bit can be sensed. Briefly, the 
reception of a byte is done as follows: After detecting the start bit, eight consecutive 
bits are received. The detection of two stop bits follows this. The eight bits constitute 
the byte to be received. In case the stop bit is not detected, a frame error occurs. This 
reveals that an error is made during data transmission. 

Sending of a byte on the other hand, starts with the transmission of the start bit. 
The transmission of eight bits follows this. It 1s provided that the duration of each bit 
is 104.7 microseconds. Finally the stop bits are sent. This action concludes the 
transmission of a single byte. 

A detailed information about the communication routines is given in Appendix D. 

2. Implementation of Abort Option 

Another thing to be noted here is the Abort option. An Abort occurs when 
the abort button on the ECB is pressed. The Abort button is pressed in order to recover 
from an undesired situation. This undesired situation can be an endless loop, for 
example. 

Pressing the Reset button also provides a recovery, but in this case all the register 
contents are lost, whereas pressing the Abort button causes a special Abort handler 
routine to execute which uploads all the current register contents to the Macintosh. As 
a result, the user can see all the register contents when he presses the Abort button. 


More information about Abort can be obtained from Appendix E. 
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IV. VALIDATION OF THE DEBUGGER 

As the modules which perform the functions of the debugger were being 
developed, each was tested for correctness. After providing serial communication 
between the Macintosh and the ECB, the download, memory display, and memory 
write functions were implemented and tested. These three functions were then used in 
developing other functions of the debugger on the ECB side. Until the completion of 
these functions, the HP1650A logic analyzer was the only tool. After implementing all 
debugger functions, the overall debugger was exhaustively tested. Five sets of test 


programs were written, where each set tested the following sections of code. 


e Communication between the Macintosh and the ECB. 
e Downloading a program from Macintosh to the ECB. 
e Displaying and modifying the ECB’s memory/registers. 
e Debugging MC68020 microprocessor instructions. 


e Debugging MC68881 coprocessor instructions. 


The instructions in this programs were selected such that they could test almost 
every possibility of a bug in the system (e.g., loss of stack space, modifying the 
memory incorrectly, etc.) 

In the following two sections of this chapter the functionality of this debugger 
will be demonstrated by showing the results of test programs in response to the 
execution of the debugger commands. Three different test programs are debugged under 


various levels of control. 
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A. DEBUGGING MC68020 INSTRUCTIONS 

In this section, a test program is demonstrated which contains various MC68020 
instructions. Various levels of control (such as tracing, setting a breakpoint, etc.) were 
used while running the test program. In addition to testing these capabilities, some 
other debugger functions, such as download, memory write, and memory display are 
tested. For testing pUnpOses, test program #1 was written in the file test.c. This is 


shown in Figure 1. 


#0,D0; [D0] <- 0 
#1,D1; [D1] <- 1 
#2,D2: [D2] <- 2 
#0,A0; [AQ] <- 0 
#1,A1; [Al] <- 1 
#2,A2; [A2] <- 2 
#3,D3; [D3] <- 3 
#4,D4; [D4] <- 4 
#5,D5; [D5] <- 5 
ae [DS] <- [[D5]-1] 


DO0-D2,-(SP): 
(SP)+,D0-D2: 

#2,D2; [D2] <- [[D2]+2] 
#15 | 





Figure 1 Test program #1 


This program is downloaded to the ECB, starting at the address $1000 (Dollar 
sign means hexadecunal). This is done by selecting the Download function in the main 


menu. The execution of the memory display command (displaying the memory 
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locations $1000 through $1032) shows the memory contents just before downloading 
the test program. In order to be able to execute the memory display command, the 
user needs to select the Memory Display Menu (see Figure 2). In Figure 2 the 
addresses From and To determines the portion of memory which is going to be 


displayed. 


File BEATA eee 


=== Display Memory == 
From |00001000 


To 00001034 |{ Cancel | 
Size {00000032 | (Display 


(>) Disassemble 





Figure 2 Memory Display Menu 


As a result of the execution of the memory display command the following was 


obtained. 


01:2 3 4 5 6 7: 8 A B CC DO E F 
00001000 FF FF FF EF FF BF FE EF FF FF FF FB FF EF EF FB _ .sevvecccecvvees 
00001010 FF FF FF BF FF FB FF FE FF EF FF EB FE FF FF FF _ acecccccccecvoce 
00001020 FF FF EF BF FF FF FF EF FF FF FF FF FF FF FF FE _ .seoecececs erecnan 
00001030 FF FF BF xx xx xx xx xXx XX XX XX XX XX XX XX XX 


The execution of the download command modifies the above memory contents. The 
new memory contents are the user program. This can be seen by executing the 


memory display command. 
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0.123 4 8 6 7 8 9 AB scence, 
00001000 70 00 72 O1 74 02 20 7C 00 00 00 00 22 70 00 00 p.r.t. J....°e. 
00001010 00 O01 24 7C 00 00 00 02 76 03 78 04 7A 05 S53 85 ..31....4-X.2.5. 
00001020 66 00 FF FC 48 E7 EO 00 4C DF 00 07 354 82 4E 4F f...H...bL...F.NO 
00001030 FF FF BF xx xx xx¥ XX XX XX XX XX XX MX MX MX XX cee 


In order to see that the test program was correctly loaded the, memory display 


command was executed with the disassemble option. The result is shown in Figure 3. 


oo001000 ° 7000 Ho, D0 
00001002 7201 HL, OL 
00001004 7402 | H2,D2 
oo001006 207000000000 HO ,A0 
oo00100c  227C0000000! HI ,Al 
o0001012 247c00000002 H2,A2 
00001018 7403 43,03 
000010!1A - 7804 #4, D4 
0000101C 7A0S H5,05 
QOO0I01E 5385 -— Hi ,DS 
00001020 . Sé00FFFC . ; S00101E 
00001024 48E7E000 D0-02,-(A7) 
00001028  4cDF0007 .L (A7)+#,D0-D2 
o000102c 5482 H2,02 
0000102E 4E4F HIS 
00001030 FFFF WORD  $FFFF 
00001032  BFBF ‘ WORD | $BFBF . 





Figure 3 Disassembled test program #1 


Then various levels of control were used during the execution of the test 
program. The first three commands in the test program were executed with the 
selection of the Trace All option in Go menu. (Go menu is shown in Figure 4.) With 
the Trace All option, the program execution returns to the debugger after the execution 

; 
of every instruction. The debugger displays the result of each executed instruction. 
Setting the program counter value to $1000, selecting the Trace All option, and 


then clicking go causes the first instruction of the test program #1 to be executed. The 
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result is shown below. 

‘PC=00001002 
SR=8004 USP=0001F800 SSP=0001FCO0 ISP=0Q001FFFC 
D0o=00000000 01=00000000 bD2=00000000 03=00000000 
D4=00000000 O5=00000000 Dé=00000000 b7=00000000 
A0=00000000 Ai=00000000 Az2=00000000 A3=00000000 
A4=00000000 A5=00000000 Aé=00000000 A7=0001F800 
00001002 720! MOVE@.L #1,D! 


¢ File Functions 
@ Goto return to 
_—— 


Breakpoints 


00000000 ||0000 |; {00000000 |;0000 
Trace All © Display Steps 





Figure 4 Go menu 


Clicking go once more gives the following: 


PC=00001004 
SR=8000 USP=0001F800 SSP=0001FCO0 ISP=000IFFFC 
.D0=00000000 Di=00000001 D2=00000000 pD3=00000000 
D4=00000000 D5=00000000 Dé=00000000 p7=00000000 
A0=00000000 Ai=00000000 A2=00000000 A3=00000000 
A4=00000000 AS=00000000 Aé=00000000 A7=000iF800 
00001004 7402 MOVEQ.L 42,02 


And finally, clicking go once again, one more instruction is executed. 


17 


PC=00001006 

SR=8000 USP=0001F800 SSP=0001FCOO ISP=Q001FFFC 

00=00000000 D1=00000001 D2=00000002 D3=00000000 

D4=00000000 O05=00000000 0é46=00000000 p07=00000000 

A0=00000000 €A1=00000000 A2=00000000 A3=00000000 

A4=00000000 A5=00000000 Aé=00000000 A7=0001F800 

00001006 207C00000000 MOVE.L #0 ,A0 

Before changing the level of control, looking at the outcomes of the previous 
three steps, it is seen that three instructions were executed correctly. That is, as a result 
of the MOVE instructions, the new contents of the data registers DO, Di, and D2 are 
zero, one, and two respectively. The results of the instructions could also be seen by 
selecting the registers menu (in the main menu). The registers menu can also be 
displayed without going through the main menu. The format of the information which 
is displayed after the execution of the user program depends on the selection of the 
return to option in Go menu. The user has three choices. When return to is selected as 
Go menu, following the execution of user program, Go menu is displayed again. When 
return to 1s selected as No menu, no menu is displayed on the screen, instead register 
contents are displayed. (This is the format used in the previous three steps.) And as the 
third choice, return to can be selected as Registers menu. In this case, following the 
execution of user program, Registers menu is displayed on the screen. In order to see 
this, the last trace step is repeated with return to selected as Registers menu. The result 
is shown in Figure 5. 
In order to see the effect of the Trace Branch option, consider the following. 

With the Trace Branch, program execution returns to the debugger when a branch 


(either the unconditional branch BRA or one of the conditional branches, such as BEQ, 


BNE, etc.) is taken. This means that the user will be able the see the results when 
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D O Clear All” fi USP OOO1FS8O00 
CITT ooooooeo | ssp |ooo1Fcoo 
CO00000! ||00000000 | ISP |OOOI1FFFC 
00000002 ||00000000 | PC 00001006 
00000000 || C0000000 | SA 8000 
00000000 |jOc0000000 | UBR {00000000 
00000000 |;00000000 | CACR | 00000000 
00000000 ||00000000 | CAAR |EF?D?ABF 
00000000 User SDFC |?? 


ies 


Condition Codes Interrupt Level 


OHONOZOVOC 


VT 





Figure 5 Registers menu 


there is a change on the flow of the program. In the test program #1 of Figure 1, there 
is a branch instruction BNE which executes five times. The expected result after one 
execution is that, when the registers are displayed on the screen, the program counter 
content is $101E, and data register D5 contains four (since it is loaded with five and is 


decremented by one before the branch). 


‘PC=O000101E 

SR=6000 USP=0001F800 SSP=0001FCO0 ISP=0001FFFC 
DO=00000000 )1=00000001 D2=00000002 D3=00000003 
D4=00000004 05=00000004 06=00000000 p7=00000000 
A0=00000000 Ai=00000001 Az2=00000002 Az=00000000 
‘AG=00000000 AS5=00000000 Adé=00000000 A7=0001F800 
OOOOI0IE 3385 SUBQ.L #1,D5 


1s, 


The previous output was exactly the same as expected. Now the use and effect of 

a breakpoint is illustrated. In test program #1 of Figure 1 there are two instructions 
which perform a push onto the stack and a pop from the stack. After executing these 
instructions, the content of the stack pointer should remain unchanged. Before 
executing, the trace level was set to No Trace and a breakpoint was set to the address 
$1028. There are three stack pointers in the MC68020. They are: User Stack Pointer 
(USP), Supervisor Stack Pointer (SSP), and the Interrupt Stack Pointer (ISP). In Go 
menu the default stack pointer is the USP (the active stack pointer can be changed to 
another one by the user). So, the stack operations in the test program #1 will be in the 
User Stack. The instruction MOVEM.L DO-D2,-(SP) will push the registers DO, D1, D2 
onto the stack. At the breakpoint the displayed USP content is expected to be 12 less 
than its original value (as a result of the pushes onto the stack). And also the program 
counter should point to the instruction at the breakpoint address. The following output 
was obtained after this step. By examining the register contents, it was verified that the 
result is correct. 

PC=00001028 

SR=0004 USP=O001F7F4 SSP=O0001FCO0 ISP=Q001FFFC 

DO=00000000 Di=00000001 D2=00000002 D3=00000003 

D04=00000004 bD5=00000000 Déd=00000000 D7=00000000 

AQ=00000000 Al=00000001 AZ2=00000002 A3=00000000 

Ad=00000000 A5=00000000 Adé=00000000 A7=0001F7F4 

00001028 4CDF0007 MOVEM.L ¢A7)+,D0-D2 


At this point, the use of the memory display command (of memory locations 


$1F7E0 through $1F7FF) shows the new stack contents. 


0 1 2 3 4.5 6 7 8 9 FARE 


OOO1F7E0 FF FF FF FF FF FF FF FF FF FF F7 OF FF FF FF O07 ..eee. fila. eee 
OOOIF7FO FF FF DF FF 00 00 00 00 00 00 00 01 00 00 00 02 wseseseseeeevere 
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The underlined part of the previous output shows that the contents of data 
registers DO, D1, D2 are pushed on to the stack. The longword (four bytes) at the 
address $1F7F4 contains the content of DO, the next longword (at the address $1F7F8) 
contains the content of D1, and the longword at the address $1F7FC contains the 
content of D2. This current stack content can be changed with the use of the memory 
write command. In order to be able to execute the memory write command, the user 
needs to select the Memory Write Menu in the main menu. This menu is shown in 


Figure 6. 


File Bata ti ks 
Write Memory =] 


Location Contents 


OOOOTF?F4 00001989 


© Byte - @® Increment 
© Word © No Change 
(®) Long (© Decrement 


@) Verify 





Figure 6 Memory write menu 


By executing the memory write command (writing $00001989 to the address $1F7F4), 


and, following that, executing a memory display command, the stack contents become: 


(Zsa Oo 7 oy A BD Co Dc OF 
QOOO1F7E0 FF FF FF FF FF FF FF FF FF FF F?7 DF FF FF FF DZ weaeeeeecececcce 
QOOQIF7FO FF FF OF FF 00 00 19 89 00 00 00 01 00 DO DO D2 wacueeeesueens ve 
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This last execution shows the effect of the memory write command. Up to this 
point the test program has been executed either by tracing or by setting a breakpoint. 
If there are no trace or breakpoints in the program, execution retums to the debugger 
when the final instruction (Trap #15) is encountered. In order to test this, breakpoints 
were removed and No Trace option was selected before clicking go. 

PC=0000102E | 

SR=0000 USP=0001F800 SSP=0001FC00 ISP=0001FFFC 
‘D0=00000000 O01=00000001 D2=00000004 03=00000003 
04=00000004 D5=00000000 Dé=00000000 D7=00000000 
A0=00000000 Ai=00000001 Az2=00000002 A3=00000000 
‘A4=00000000 AS=00000000 Aé=00000000 A7=0001F 800 
0000102E 4E4F TRAP H15 

As it is seen in the last output, the program execution is indeed returned to the 
debugger when the Trap #15 instruction was encountered. 

The following program (test program #2) is exactly the same as the test program 
which has already been described with the exception of Trap #15 instruction which is 
now replaced by an RTS instruction. As far as the execution of the user program is 
concerned, there are two modes in Go menu. They are: Goto and Call. Test program 
#1 was executed with the mode Goto (this is the default mode) selected in Go menu. 
Call option is provided in order to test the subroutines. When Call is selected as the 
operating mode, after the execution of the subroutine the program counter points to the 
beginning address of the subroutine just called (for more details see Appendix F). In 
order to illustrate the use of mode Call, test program #2 was written in the file test.c, 
the debugger was run and the program was downloaded to the ECB. Execution of a 
memory display command (displaying the memory locations $1000 through $1032) 


with the disassemble option displays test program #2 and verified the correctness of 


downloading. This is shown in Figure 7. 
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00001000 
00001002 
00001004 
00001006 
0000100C 
00001012 
00001018 
0000101A 
OQOQ10IC 
OO00101E 
00001020 
00001024 
00001028 
0000102C 
0000102E 
00001030 
00001032 


7000 

7201 

7402 
207000000000 
227C00000001 
247000000002 
7603 

7804 

7A05 

5385 
6600FFFC 
48E7E000 
4CDF0007 
5482 

4E75 

FFFF 

FFBF 


MOVEQ.L 
MOVEQ.L 
MOVEQ.L 
MOVE.L 
MOVE.L 
MOVE.L 
MOVEQ@.L 
MOVEQ.L 
MOVEQ.L 
SUBQ@.L 
BNE.L 
MOVEM.L 
MOVEM.L 
ADDQG.L 


H0 ,D0 
#1,D1 

H2,D2 

#0 ,A0 

#1 ,Al 

H2,A2 

#3,D3 

H4,D4 

#5,D5 

H1,D5 
S00101E 
DO-D2,-‘A7) 
(A7)+,D0-D2 
H2,D2 


RTS 


WORD 
WORD 


$FFFF 
$FFBF 





Figure 7 Disassembled test program #2 


Before clicking go, the program counter value is set to $1000. The output after 
the execution is shown below. The program counter still points to $1000 after the 
execution of the test subroutine. 


PC=00001000 

SR=0000 USP=0001F800 SSP=O001FCOO ISP=0001FFFC 
DO=00000000 Di=00000001 D2=00000004 p3=00000003 
D4=00000004 D5=00000000 Dé=00000000 bd7=00000000 
A0=00000000 Ai=00000001 A2=00000002 A3=00000000 
A4=00000000 AS=00000000 Aé=00000000 A7=0001F 800 
00001000 7000 MOVE@.L #0,D0 


B. DEBUGGING MC68881 INSTRUCTIONS 
In this section we consider the verification of coprocessor-related capabilities of 


the debugger. For this purpose, test program #3 was written. This test program contains 
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two coprocessor instructions and is shown in Figure 8. Prior to execution floating point 
register FP4 is assumed to contain a number X whose sine and cosine are to be 


computed. 


$F200; FSINCOSX.X FP4,FP5,FP6 
$12B6; 
$F23C; FMOVE.L #7,FP7 


$4380: 
$0000; 
$0007; 





Figure 8 Test program #3 


This program was written in test.c, the debugger was run, coprocessor option 
was selected in go menu, and test program was downloaded to the ECB. The result of 
executing the memory display command (disassembling the memory contents starting 
from $1000 and ending at $1014) is shown in Figure 9. Since the current disassembler 
is not able to disassemble coprocessor-related instructions, these unsupported 
instructions are displayed in their hexadecimal representation. In this test, 0.785375 was 
entered in the register FP4 as X (0.785375 radians corresponds to 45 degrees). 
Following this, the program counter value was set to $1000, and go was clicked. The 
expected result is the sine of 45 degrees (which is nearly 0.707) in floating point 
register FP5, the cosine of 45 degrees in FP6 (which is also ’nearly 0.707), and of 
course 0.785375 in FP4. As a result of the second instruction, floating point register 


FP7 was supposed to contain seven. The outcome of this test run is shown in Figure 9 
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where the floating point registers menu is displayed. As it is seen in Figure 9 the result 


is exactly the same as it was expected. 


00001000 F200 $F 200 
00001002 12Bé6 $12B6 
00001004 F23C $F23C 
00001006 4380 DO ,Di 


00001008 00000007 #7,D0 
0000100C 4E4F H15 
OOO0100E F206 $F 206 
00001010 4322 $4322 
00001012 4E4F #15 
00001014 00000002 #2 ,00 





Figure 9 Disassembled test program #3 


Floating Point Registers 


& 
wa 
= 


Mantissa Sign Exp 


o0ccoc000000NNNN. 


OG0c000000000000 
voco000000000000 
OG000000000000000 
#853750000000000 
707090402001 44138 
70712315999226049 
(0000000000000 000 


© BSUN 

© SNAN 

© OPERR 
© OVFL 

© UNFL 

© Bz 

© INEH2 
© INEHI 


Status |ggQg0g0g008 Control 0000 


In |ooo00000 |ON O2 O!ONAN 


©} © 


& 


+ 


PPE 
eLEEELEFEL 





Figure 10 Floating point registers menu 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

The debugger written under the topic of this thesis study can be considered as an 
up-to-date version of the Motorola’s debugger, Tutor, which was in wide use for a long 
time. This debugger, together with the MC68020 based ECB, constitutes a very handy 
tool for students and for researchers. When compared to the Motorola’s debugger, it has 
some advantages and some disadvantages. 
The advantages are: 

e It can support MC68020 state-of-the-art microprocessors rather than MC68000. It 
can handle Coprocessor instructions. 


e The user does not have to memorize some debugger commands, using pull-down 
menus, it is easier to learn and easier to use. 


e No dumb terminal is needed as part of the debugger. Instead the Macintosh 1s 
utilized as an intelligent front end. 


The disadvantages are: 
e Fewer debugger commands are supported compared to the Motorola’s debugger. 


e Since this debugger communicates with ECB via RS232 interface, which takes 
some amount of time, it is somewhat slower than the Motorola’s debugger. 


B. FUTURE WORK 
As was mentioned before, part of the debugger resides in EPROM and runs on 


ECB. It is called the monitor program. In monitor, only a limited number of exceptions 
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could be supported due to limited amount of time for this thesis study. The exceptions 
which have associated exception handler routines are: Reset, Privilege Violation, Level 
4 and Level 6 Autovectored Interrupts, Trace and Trap #15 (for more information about 
exceptions, see section 6 in Ref. 2). The other exception vector entries are loaded with 
the address of a short routine (STACKFRAMEB), which does nothing but arrange the 
stack. This prevents the loss of some stack space and system lock. As a future study, 
the corresponding exception handlers can be written for the yet unsupported exceptions. 

By selecting Disassemble option, the desired memory locations can be 
disassembled and displayed on the screen. But the disassembly routine handles only 
MC68000 instructions. MC68020 instructions are not supported. They are displayed in 
their hexadecimal form. As a future work, with some additions to the disassembly 
routine, the disassembly of MC68020 instructions can be supported. 

As another improveinent to this debugger, some more debugger commands can be 
supported, which enable the user to Fill a Block of Memory, Move a Block of 
Memory or a Search a Block of Memory. 

In the current version of this debugger, the program to be downloaded has to 
exist in a single file, test.c. It may be very beneficial if the user is given the option of 
downloading the program in any one of different files. This could not be done because 
current version of LightspeedC did not allow it. 

This debugger has the capability of providing the user a hardcopy option. But it 
works only with Imagewniter serial printer. It will be very practical if a variety of 
Macintosh compatible printers can be included in a menu, where the user can select 


which one to use. 


Pail 


APPENDIX A: FLOWCHARTS FOR THE DEBUGGER 


1- FLOWCHART FOR MAIN MENU 


INITIALIZE COMM. PORTS 
‘ INITIALIZE MENUS 


AUNT Este 





DISPLAY 
MAIN MENU 
WAIT FOR USER INPUT 


ie o> 
NO 


YES 
CALL 
——a 
DOWNLOAD TORO 
ig ; 
| NO 


DISPLAY 
HELP INFORMATION 


ee 


END 
PROGRAM 


YES 
VES 

PRINT 
PREVIOUS SCREEN 
YES 


e e CLEAR 
SCREEN 
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NO 
NO 


NO 


NO 





YES 


YES 


NES 


MES 


NES 


MEMORY 
DISPLA 


2- FLOWCHART FOR REGISTERS MENU 


DISPLAY 
REGISTERS MENU 
WAIT FOR USER INPUT 


DISPOSE YES QUIT 
REGISTERS MENU | OR 


GO 7? 




















VES NO 
CLEAR 
DO-D7, AO-A6 
UPDATE MENU 
SET 
REGISTER VALUE 
UPDATE MENU 
NO 
RETURN \.NO MENU ; ConD. \ YES TOGGLE 
TO=? | | CODES . THAT COND. CODE 
0 6 UPDATE MENU 
REG: NO 
MENU 
TOGGLE. 
PROCESSOR STATE 
UPDATE MENU 
REGISTERS MENU 
& CALL GO ROUTINE 


NO MENU 
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3- FLOWCHART FOR FLOATING POINT REGISTERS MENU 


DISPLAY 
FREGS. MENU 
WAIT FOR USER INPUT 






DISPOSE 
FREGS. MENU 


SET EXP. SIGN 
UPDATE MENU 


re Con 
SET NANT. SIGN 
UPDATE MENU 


SET EXP. VAL. 
UPDATE MENU 


SET MANT. VAL. 
UPDATE MENU 


TOGGLE THAT BIT 
UPDATE MENU 

TOGGLE THAT BIT 
UPDATE MENU 


Sl 


4- FLOWCHART FOR MEMORY DISPLAY MENU 


DISPLAY 
MEM_DISPLAY MENU 
WAIT FOR USER INPUT 


DISPOSE YE 
MEM_DISPLAY MENU 


Y 
é 
S 
© 


ss) 


SET FROM VALUE 
UPDATE MENU * 









SET TO VALUE 
UPDATE MENU 





SET SIZE VAGUE 
UPDATE MENU 


TOGGLE DISASI1. 
UPDATE MENU 


NO 








DISPOSE 
EM_DISPLAY MENU 


CALL 
MEMORY DUMP 


a2 


S- FLOWCHART FOR MEMORY WRITE MENU 


DISPLAY 
MEMORY_WRITE MENU 


WAIT FOR USER INPUT. 







DISPOSE 
MEMORY_WRITE MENU 


a ¢ 
—§ 










SEM oIZE VAEUE 
UPDATE MENU 


Ser INC /DEE. VAL. 
UPDATE MENU 


TOGGLE VERIFY 
UPDATE MENU 





SET LOCATION VAL 
UPDATE MENU 


SE CONTENT VAL: 
UPDATE MENU 


CALL 
MEMORY WRITE 


© 
© 
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6~ FLOWCHART FOR GO MENU 


DISPLAY 
LY) IER 
WAIT FOR USER INPUT 


GO 
es. 
OR NO 


CANCEL 
Kent 


2 
CALL 
ae GO ROUTINE 
DISPOSE 
SEEN DISPOSE 
| GO MENU 


& a 
REG_MENU o GO_MENU 


NO_MENU 


DISPLAY 
REGISTERS INFO. 


BREAK YES | 
POINTS BREAKS 
? 
NO 
YES SET PGM. COUNTER 
UPDATE MENU 














SET TRACE OPTION 





DISPLAY 
Seno 


7 


(OGGEE Vise. olEP: 
UPDATE MENU 


SET RETURN_TO 
UPDATE MENU 


SET GOIO 
UPDATE MENU 


PUA MEN 


WAIT FOR 
LIN 


GMs, 


— YES 






GET BRK. CN Taal 


CLEAR ALE ORK is 
UPDATE MENU 


CLEAR ALL BRK. Cie 








GET BRK. POINT * | 
UPDATE MENU 


WAIT FOR 
USER INPUT 
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7~ FLOWCHART FOR OPTIONS MENU 


DISPLAY OPTIONS MENU 
WAIT FOR USER INPUT 


DISPOSE OPTIONS 
MENU 


- ‘o> 
No 
Lae YES | TOGGLE HARDCOPY 
UPDATE MENU 
| 








TOGGLE COPROC. 
UPDATE MENU 


REFRESH 
SCREEN 


TOGGEE REF: SCRN 
UPDATE MENU 


TOGGLE REF. SCRN. 
UPDATE MENU 


33) 


8- FLOWCHART FOR MONITOR PROGRAM 


RESET/POWER-UP 


INITIALIZE THE ECB. 
WAIT FOR COMMAND 
FROM MACINTOSH 






EXECUTE 
COMMAND 


NO 


NES 


JMP TO USER PGM. 
AND 
START EXECUTION 
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APPENDIX B: MACINTOSH-ECB INTERFACE PROTOCOLS 


EXECUTION OF MEMORY DISPLAY COMMAND 


MACINTOSH 


- Send memory display code. 


Meena the start address (4 bytes) 
of the memory locations which are 
to be displayed. 


Seeena byte count (1 byte) which is 
Maesnpumber of bytes to be 
displayed. 


- Receive memory contents 
fmemeyee COunt bytes). 


(As many 


- Receive checksum byte. 
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ECB 


Main receives memory display code, 
and switches program execution to 
MEMORY DISPLAY Routine. 


Receive the start address (4 bytes) 


IS Cais! Lovet feretblioie 4) ehaee))) 

Read from memory locations, 
SLdmalng Ee EOmM Stank sadaress, and 
send them to Macintosh, one-by-one. 
Meanwhile calculate the checksum 
byte. Checksum is calculated by 
EXORing the outgoing bytes. 


send checksum byte. 


EXECUTION OF MEMORY WRITE COMMAND 


MACINTOSH ECE 


1- Send memory modify code. 
1- Main receives memory modify scaees 
and switches program execution to 
MEMORY WRITE Routine. 
2- Send the operand size (width) byte 
al fesaee)) . 





2- Receive the operand size \(iaeyeems 
3- Send the address of the memory | 
location to be modified (4 bytes). 

3- Receive the address of the memory 
location to be modified (4 bytes). 

4- Send new memory contents (1, 2 or 
4 bytes, depending on the width). 

4- Receive new memory contents and 
write them into the memory locatio 
starting from memory modify star@ 
address. 


5- [If "verify" option is selected] 
Read from memory locations and sen 
them to the Macintosh. (As many as 
byte count 27 eeom 


5- [If "verify" option is selected] 


Receive new memory contents. 
(As@many as byte count bytes). 
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EXECUTION OF DOWNLOAD COMMAND 


MACINTOSH 


Send download code. 


Sema the download address. 
User program will be loaded 
Starting from this address. 
(4 bytes). 


meme the number of bytes to 
be downloaded. 
(2 bytes). 


Send all the bytes which constitute 


the user program. 

Meanwhile calculate the checksum. 
meeemany as number of bytes 
bytes will be sent). 


Send the checksum byte. 
(1 byte). 


Receive MC68020 register contents. 
(96 bytes). 

[If “Coprocessor" is selected] 
Receive MC68881 register contents. 
(108 bytes). 
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ECE 


Main receives download code, and 
Switches program execution to 


DOWNLOAD Routine. 


Receive the download address. 
(4 bytes). 


Receie Che number Of bytes” 
(2 bytes). 


Receive user program, byte by byte. 
Meanwhile calculate the checksum. 
(As many as number of bytes 
bytes will be received). 


Receive the checksum byte. (The 
one sent by the Macintosh). 


Ci byte e. 


Upload MC68020 register contents 
to Macintosh. (96 bytes). 

[If "“Coprocessor" is selected] 
Upload MC68881 register contents 
to Macintosh. (108 bytes). 


EXECUTION 


MACINTOSH 


l= Senne gqeo (code. 


2- Send Display Steps (1 byte). 
3- Send all the Break Points, starting 
from Break Point #0. (Four bytes 


per Break Point, 


4- Send all the Break Counts, "stare rng 
from Break Count #0. (Two bytes per 
Break Count, 9in totale lO0 bytes 


5- Send MC68020 register contents. 
DO-D7 7, A0-AG, 
(96 bytes). 


6- Send checksum byte (1 byte). 


7- [If "Coprocessor" is selected] 


Send Coprocessor register contents. 


8- Receive new register contents. 


(96 bytes, if MCo08881 is not 
selected). 
(I6+TIIS bytes, 1b MeGese i eis 
selected). 


in Cotal Z0ebyees)= 


and Control registers. 
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OF GO COMMAND 


ECB 





Main receives go code, and Swim 
program execution to GO Routine. 


Receive Display Steps (1 byte). 


Receive Break Poon addresses. Four 
bytes per Break Point. (20 bytes). 


Receive Break Counts. (Two bytes@pen 
Break Count, in total 10 bytes). 


Receive MC68020 register contents. 
DO-D7, AOQ-A6, and Control reégieeewes 
(96 bytes). 


Receive checksum byte (1 byte). 


[If "Coprocessor" is selected] 
Receive Coprocessor register 
contents. (108 bytes). 


Start the execution of user program. 
[When user program execution stops 
due to a "Trace", "Breakpoint", 
"Trap 15", ©© VE toe 

Upload the most updated register 
GGneceiece 


(96 bytes, if MC68881 is not 
selected). 
(96+118 bytes, if MCG8so ieee 
selected). 


APPENDIX C: SOURCE CODE OF THE DEBUGGER PROGRAMS 


a. SOURCE CODE OF MAIN PROGRAM 


i- Source code of download.c 


7 download.c */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
+#define 
#define 
#define 
+#define 
#define 
#define 
#define 
#define 
#define 
_#define 
#define 
#define 
#define 
#define 
#define 
+#define 
#define 


enum { 
enum { 
enum { 


}enum { 


enum { 


Fregitem, 


noGrowDocProc, 


stop10 16384 

stop15 ((int) -32768) 

stop20 (-16384) 

noParity 0 

oddParity 4096 

evenParity lz2238 

data/ 1024 

datas SO7Z 

baud300 Sie (0 

baud600 189 

baud1200 94 

baud1800 62 

baud2400 46 

baud3 600 30 

baud4800 22 

baud7200 14 

baud9600 10 

activeFlag Ox0001 

changeFlag Ox0002 

btnState 0x0080 

cmdKey Ox0100 

shiftKey 0Ox0200 

alphaLock 0x0400 

opt ionKkKey 0x0800 

controlKey Ox1000 

charCodeMask OxOO00000FFL 

perelerD- — 1, fileID, optID, widthID, incID }; 
quitItem = 1 }; 

downitem = 1, SbreakItem, nulllitem, regIitem , 
null2item, memitem, MemWitem,null3Item, 
Options, DumpIitem,null4item,clearItem, helpItem }; 
documentProc, dBoxProc, plainDBox, altDBoxProc, 
EHOCProc = 16 }; 

fsCurPerm, fsRdPerm, fswWrPerm, fsRdWrPerm, 
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fsRdWrShPerm }; 


enum { fsAtMark, fsFromStart, fsFromLEOF, fsFromMark }; 


enum { nullEvent, mouseDown, mouseUp, keyDown, keyUp, autoKey, updateEvt, 
diskEvt, activateEvt }; 
enum { inDesk, inMenuBar, inSysWindow, inContent, inDrag, inGrow, 


inGoAway, inZoomiIn, inZoomOut }; 
typedef unsigned ehar StrZo5 |(Z56 17 
typedef struct { char cumErrs, xOffiSent, rdPend, wrrend, eecne a 
xOLfHoOld ;} SerStaRee-, 
typedef struct { int menuID; int menuWidth,menuHeight; long menuProc, 
enableFlags; Str255 menuData; } MenuInfo,* MenuPtr, 
**MenuHandle; 
typedef char QDByte, *“ODPt.,.. = -ObpHandte, 
typedef struct { int top, left, bottom, right); ieee eee 
typedef struct { QDPtr baseAddr; int rowBytes; Rect bounds; } BitMap; 
typedef struct { int rgnSize; RectrgnBBox; } Region,* RgnPtr,** RonHandles 
typedef unsigned char Pattern[8]; 
typedef struct. { “ints, hie.) ee came 
typedef enum { bold = 1, italic = 2, underline = 4, outline = 8, 
shadow = 16, condense = 32, extend = 64 } Style; 
typedef struct { ODPtrtextProc; ODPtrlineProc; QODPLErecerres, 
ODPtrrRectProc; QDPtrovalProc; ODPtrarcProc; 
ODPtrpolyProc; QODPtrrgnProc; ODPErDiEsProc, 
QODPtrcommentProc; QODPtrtxMeasProc; QDPtrgetPicProc; 
ODPtrputPicProc; } QDProcs, *sODProcsEeaa 
typedef Struct  Gratlove a, 
int device; BitMap portBits; Rect portRect,; 
RgnHandle visRgn; RgnHandle clipRgn; Pattern bkPat; 
Pattern f£111Pat; Point pnLoc; Point pnSizZe; 
int pnMode; Pattern pnPat; int pnVis; 
int txFont; Style txFace; int txMode,; 
int txSize; long spExtra; longeigqeolew 
long bkColor; int colrBit; int )patcstreuem 
QDHandle picSave; QDHandle rgnSave; QDHandle 
ODProcsPtr grafProcs; } GraiPort , sen ae ee 
typedef GrafPtrWindowPtr; 
typedef char 2 ePrra, 
typedef pe QUE emoxeiemre | (C4 
typedef ENEOSHEE ER, wOscE EE: 
typedef unsigned char * StringPtr,** StringHandle ; 
typedef char SignedByte ; 
typedef SEruUCcE | 
Struct QElem * qhLink; int qType,ioTrap; Ptr i16Cma@ageam 
ProcPtr ioCompletion; OsErr ioResult; StringPtr ioNamePt1 
int 1oVRefNum,ioRefNum; SignedByte ioVersNum, i0oPermssn; 
Ptr io0Misc,ioBuffer; long 10ReqCount, 1oAGEe ene 
int 10PosMode; long ioPosOffset; 
} 10oParam, IOParam ; 
typedef struct EventRecord { int what; long message, when; 
Point where; int modifiers; }EventRecord; 
char c,instring[255],inbuf [3001],E bytes (20) freqs | 20iiian 
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char 
char 
char 
enar 
Ent 

long 


SerStaRec 
WindowPtr 


Rect 


RgnHandle 
i10Param 
MenuHandle appleMenu, 


extern 
extern 
extern 
extern 
extern 
pascal 
pascal 
pascal 
extern 
extern 
extern 


main () 
Wat i,j; 


{ 


Oue buf [2000], *Head, *Tail, *EndQue, *StartQue; 

DisplaySteps, ReturnTo=2,ErrorFlag=0x00, CameFmGo=0; 

mmct ring (1238), prninbuft [3001] ,prnoutbuf [2500], clrscn, 
ManSign[8],ExpSign[8],Fbuf[12],RefScrn, OurEvent=0,Reach=1; 
ByteCount, Last LocCount, scrollsize, LocCount, BreakTimes[5],Clear; 
registers [24],fcregs[3],Breaks[5],from,to, at; 

SerRec ; 

DisplayWindow; 

windowBounds,myRect,ClrRect; 

myRgn; 

perm, Poout, prnbout, prnbin; 

fileMenu, optionMenu; 


Wetadenrron(char *,char *,char *,char *); 
void LastScreen (int); 

vom Drinthex (long, int) ; 

vented DrawChar (char) ; 

GrafPtr thePort; 

MenuHandle NewMenu() ; 

WindowPtr NewWindow() ; 

RgnHandle NewRgn(); 

BitMapscreenBits; 

char *start, *end, Coprocessor, Experienced; 
iitrorLgin; 


/* Initialize Macintosh Environment */ 


MaxApplZone(); 
InitGraf (&thePort) ; 
faitronts () ; 


FlushEvents (OxFFFF, 


Oy, 


InitWindows(); 
InitMenus (); 


me Init () ; 


InitDialogs (OL) ; 
MittCursor () ; 


Mm inatialize Menus */ 


InsertMenu (appleMenu = 
InsertMenu(fileMenu = 
InsertMenu(optionMenu = 


NewMenu(appleID, "\p\024"), 0); 
NewMenu(fileID, "\pFile"), 0); 


NewMenu (optID, "\pFunctions"), 0); 


DrawMenuBar(); 


AddResMenu (appleMenu, 
AppendMenu (fileMenu, 
AppendMenu (optionMenu, 


 DRVER-») 3 
"\pQuit/Q"); 
UU phownload/ PD, Gow-./Gi-— (- Registers. 7/7, Floating 


Regs.../F;-(;Memory Display.../M;MemoryWrite.../W;-(; 
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Options/O;Previous Screen/P;=—(; Clear Sereen, Gyno, He 
/* Initializemocreenmey 


myRect.left=4; windowBounds.left=8; 

myRect .top=0; windowBounds.top=40; 

myRect .right (windowBounds.right=screenBits.bounds.right-8) -8; 

myRect.bottom = (windowBounds.bottom=screenBits.bounds.bottom-8) -4; 
DisplayWindow = NewWindow(0L, &windowBounds, "\pDisplay", 
1,noGrowDocProc, -IlLl7 wo. 

SetPort (DisplayWindow) ; 

MoveTo (4,myRect .bottom-40Q) ; 

TextFont (4) ; 

Text Size (scrollsize=9) ; 

SetRectRgn (myRgn=NewRgn (),0,0,0,0); 


Jt Tnitialvze Printers port. = 


prnbin.ioPermssn=fsRdPerm; 

prnbin.ioNamePtr= (StringPtr) \p-sime, 
prnbin.ioVRefNum = 0; 

prnbin.ioVersNum= 0; 

prnbin.ioMisc = OL; 

prnbin.ioBuffer = prnstring; 

PBOpen (&éprnbin, 0); 
prnbout.ioPermssn=fsWrPerm; 

prnbout.ioNamePtr = (StringPtr)"\p.BOut"; 
prnbout.ioVRefNum = 0; 

prnbout.ioVersNum= 0; 

prnbout.ioMisc = OL; 

PBOpen (&prnbout, 0) ; 

prnbout.io0PosMode = prnbin.ioPosMode = fsAtMark; 
prnbout.ioPosOffset = prnbin.ioPosOffset = 0; 


prnbin.ioRefNum = -8; 
prnbout.ioRefNum = -9; 
prnbout.ioBuffer = prnoutbuf; 


prnbout.ioReqCount = 1; 

SerReset (-8, baud9600+noParity+stop20+data8) ; 
SerReset (-9, baud9600+noParity+stopl0+data8) ; 
SerSet Buf (-8,prninbuf, 3000) ; 


/* Initialize Modem Port */ 


pbin.ioPermssn=fsRdPerm; 
pbin.ioNamePtr= (StringPtr)"\p.AIin"; 
pbin.ioVRefNum = 0; 

pbin.ioVersNum= 0; 

pbin.ioMisc = OL; 

pbin.io0Butfer = instrange: 

PBOpen (&pbin, 0); 
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pbout.ioPermssn=fsWrPerm; 

pbout.ioNamePtr = (StringPtr)"\p.AOut"; 
pbout .ioVRefNum = QO; 

pbout.ioVersNum= 0; 

pbout.ioMisc = OL; 

PBOpen (&pbout, 0) ; 

pbout.ioPosMode = pbin.ioPosMode = fsAtMark; 
pbout.ioPosOffset = pbin.ioPosOffset = 0; 
pbin.ioRefNum = -6; 

pbout.ioRefNum = -7; 

pbout.ioBuffer = &c; 

moout.ioReqCount = 1; 

SerReset (-6, baud9600+noParity+stop20+data8) ; 
SerReset (-7, baud9600+noParity+stop20+data8) ; 
SerSetBuf (-6, inbuf, 3000); 


Bor (1—0;1<20; itt) 

mom j—0;)<8; j++) fregs[i] [j)='0'; 
meee j—0;57<8; j++) { 

ManSign[jJ=' +’; 

ExpSign[{j]='+',; 


} 

mest (); 

Head=Tail=sQue buf[0]; 
EndQue=éQue buf[1999]; 
*EndQue=0x00; 
StartQue=séQue buf[0]; 
Dassy(); 
eeret;;) HandleEvent (); 

} 


/* HANDLE EVENT () 


eerict 10n: 
- This function handles the events. 
aegument s : 
- theEvent 
called by: 
- HandleEvent () /download.c 
calls 
- HandleMouseDown () /download.c 
- Stop_n Flush()/download.c 
- doFunction()/menu.c 


x / 
HandleEvent () 
{ 


j|EventRecord theEvent; 
WindowPtr theWindow; 
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ainte windowCode, ok,1i; 
tong 1; 


if (ReturnTo==0) doFunction(2); 
if (ReturnTo==1) doFunction (4); 
SerStatus (-6,&SerRec) ; 
if (SerRec.cumErrs == 64 ) { 
Error("\pError in Transmission!", "\p..try Again...) \> soe 
Stop n Flush(); } /* Discard the input while looping outside mega 
if (!Coprocessor) 
DisableItem(optionMenu, 5); 
else 
EnableItem(optionMenu, 5) ; 
HiliteMenu (QO); 
SystemTask (); 
if (ok = GetNextEvent (Oxffff, &theEvent)) { 
Switch (theEvent.what) { 
case mouseDown: HandleMouseDown (&theEvent) ; break; 
case keyDown: case autoKey: 
if ((theEvent.modifiers & cmdKey) != 0) { 
HandleMenu (MenuKey((char) (theEvent.message & charCodeMask))); 
} 
else 
send(c=theEvent .message & charCodeMask); 
break; 
Gase updateBve seit (clrscn)ay 
BeginUpdate (DisplayWindow) ; 
SetPort (DisplayWindow); EraseRect (&myRect) ; 
EndUpdate (DisplayWindow) ; 
} 
1f (OurEvent) 4 
if(!RefScrn) Clear=2; 
LastScreen (Clear); 
OurEvent=0; 
} break; 
case activateEvt: InvalRect (&DisplayWindow->portRect) ; 
break; 


} 


/* HANDLE MOUSE DOWN () 


funece wom: 

- This function handles mouse down operations. 
ar Qumentvar: 

- theEvent 
called by: 

- HandleEvent () /download.c 
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tif 


ee ll 


calls 
- None 


x / 

HandleMouseDown (theEvent) EventRecord *theEvent; 

{ 

WindowPtr theWindow; 

amt windowCode = FindWindow (theEvent->where, &theWindow) ; 


Switch (windowCode) { 
case inSysWindow: SystemClick (theEvent, theWindow); break; 
case inMenuBar: HandleMenu (MenuSelect (theEvent->where)); break; 
case inGoAway: if (theWindow==DisplayWindowé&TrackGoAway (DisplayWindow, 
theEvent->where)) HideWindow(DisplayWindow); break; 
} 
} 


/* HANDLE MENU () 


monetion: 
- This function handles menu operations. 
arguments: 
- mSelect 
called by: 
- HandleEvent () /download.c 
- HandleMouseDown () /download.c 
calls 
- doFunction()/menu.c 


x / 

HandleMenu (mSelect) long mSelect; 
{ 

int menuID = HiWord(mSelect) ; 

int menuitem = LoWord(mSelect); 
Str255 name; 

GrafPtr savePort; 

iwong 1; 


Switch (menulID) { 
caseappleID: GetPort(&savePort); GetItem(appleMenu, menulItem, name) ; 
OpenDeskAcc (name); SetPort (SavePort); break; 
casefilelID: 
Switch (menulItem) { 
casequitItem: ExitToShell (); 
break, 
} break; 
caseoptID: doFunction (menuItem); break; 
} 
} 
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7/*  SEND() 


£0NnGE LON : 
~ This function displays a byte on the Macintosh screen. 
arguments: 
- a 
called by: 
- go()/monitor.c 
~ DownLoad()/monitor.c 
~- memdisp() /monitor.c 
- wmem() /monitor.c 
- DisAsm()/monitor.c 
- SendRegs()/monitor.c 
- HandleEvent () /download.c 


calls : 
~- None 
my, 
send(a) char a; 
{ 
long 
C=a; 


PBWrite (&pbout, 0) ; 
Delay (1L,&1l); 
} 


/* SEND PRN() 


Funct Ton: 
- This function sends a byte to the Serial printer output. 
arguments: 
=a 
called by: 
- DumptoPrn() /Monitor.c 
calls 
~- None 


aT 
sendprn(a) char a; 


{ 
Long sy; 


prnoutbuf [0]}=a; 
PBWrite (&prnbout, 0); 
Delay (1L,é&l); 

} 
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/* COPY _REGS() 


Gomection: 
- This function receives and copies the updated Register 


Information which are sent by the ECB. 
arguments: 


called by: 

=o () /MOnitOr.¢c 

- DownLoad()/monitor.c 
calls 

- None 


z/ 
CopyRegs () 
{ 


Sear anstring2[4] ; 
int ae m=0, k=O r 


while (m<24) { 
registers[m]= 0 ; 
mor (j=0;759<4;5++) { 
mString2(jJ=instring[k]; k++; 
} 
more (j=0; <4; j++) 
registers [m]=(instring2[j]&O0xff)+(registers[m] <<8) ; 


| 


-/* COPY BRK CNTS() 


munetion: 
- This function receives and copies the updated Break Counts 


which are sent by the ECB. 


arguments: 
ealled by: 
ego, )/monitor.c 
calls : 
- None 
vid 
CopyBrkCnts () 


{ 
char instring2[2]; 
int 4j,m,k=96, TempLoc; 


5) 


FOr (j—Ora ott) 


for (m=0;m<2;mt+t) 


TempLoc=0; 
for (m=0;m<2;m++) { 


instringZ ([m]=instring(k) -, kita 
} 


BreakTimes [j]=TempLoc; 


fs ENPUT BUPPER 
EWUMNG Gi-Ore 
- This function checks modem input, 
bytes are received. 
arguments: 
- hit 
called by: 
- DownLoad()/monitor.c 
- go()/monitor.c 
- memdisp() /monitor.c 
- wmem()/monitor.c 
- DisAsm() /monitor.c 
calls : 
- None 
wih 
inpuebur fer (ie) 
Tmt: Na cae, 
{ 
char ¢ 
Tgie, ANS 


Longe, mi; 


fort: 
SerGetBuf (-6, &1); 
1f(1>=hit) break ; 


/* 


5) es 


} 
if (1!=0) { 
HiliteMenu (fileID) ; 


TempLoc=(instring2 [m] &Oxff) + (TempLoc<<8) ; 
if ((TempLoc==0) && (BreakTimes [Jj] >=1) ) 
else 


BreakTimes[j]=1; 


and waits until 


(1>255) 1=255; pbin.ioReqCount = 1; PBRead(&pbin, 0); 


CHECK ERROR () 


aye 


‘hice 


miimiGie 1 On : 
- This function checks to see whether an error occurred or 
not, during data transmission. 
arguments: 


called by: 
=ewownhoad()/monitor.c 
==ae()/MOnitLor.c 
memomdisp()/monitor.c 
- wmem()/monitor.c 

- SendRegs()/monitor.c 


ealls : 
=eeeOp fi Flush()/download.c 
- Error()/download.c 
x / 
CheckError () 
{ 
mat Nn; 


Been —O0 ;n<32767;nt++) ; 
SerStatus (-6,&SerRec) ; 
if (SerRec.cumErrs == 64) { 
meee DEhrrOr in Transmission!","\p Try Again...","\p","\p"); 
ErrorFlag=1; 
Seop 2 Flush(); 
} 
} 


/* STOP _N FLUSH() 


mamct ion: 
- This function stops receiving from modem input, discarding the 
previously received data. 
eeguments: 


called by: 
- DownLoad()/monitor.c 
=eago() /monitor.c 
- memdisp()/monitor.c 
= dump() /monitor.c 
- doFunction()/menu.c 
- CheckError() /download.c 
- HandleEvent () /download.c 
calls : 
- None 


ie 


a 


Stop _n_ Flush () 


{ 
long 1; 


PBKil11IO(&pbin, 0); 
SerGet Buf (-6,&1); 
if(l!=0) { 
pbin.ioReqCount = 1; 
PBRead(&pbin, 0) ; 
} 





a. Source code of menu.c 


/* Menu.c 


#define 
#define 


typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 


typedef 


typedef 


typedef 
typedef 
typedef 
typedef 


typedef 
typedef 


pascal 
enum { 


enum { 


extern 
extern 
extern 
extern 
extern 
extern 


vy! 
NULL OL 
everyEvent OxFFFF 


ati “ProOocetr) () ; 
Sueter { Inciop,left,bottom, right ; 
enazt ODByte, *ODPtr, **QDHandle; 
Struct { QDPtrbaseAddr; introwBytes; Rectbounds; 
Struct { intrgnSize; RectrgnBBox; 
Steer { Intv,h; } Point ; 
unsigned char Pattern[8]; 
enum { bold = 1, italic = 2, underline = 4, outline = 8, 
Shadow = 16, condense = 32, extend = 64 } Style; 
struct { QODPtrtextProc, lineProc, rectProc, rRectProc, ovalProc, 
arecProc, pPOlyProc, rgnProc, bitsPasec, comment Proc,txMeasProc, 
getPicProc, putPicProc? }sODProcs, MODProcsPtr; 
StructGrafPort {int device;BitMap portBits;Rect portRect; 
RgnHandle visRgn,clipRgn; Pattern bkPat,f1i11Pat; 
Point pnLoc,pnSize; int pnMode; Pattern pnPat; 
int pnVis,txFont; Style txFace; int txMode,txSize; 
tong Spixtra, [oColompereetlor;, int 
COlrBit, patSt reten,; 
QDHandle picSave, rgnSave, polySave; 
ODProcSsPtr grafLProcs, mieGrarrort, 
erafPtr WindowPtr; 
emar ** Handle ; 
unsigned char Str255[256]; 
struct { int menuID,menuWidth,menuHeight; Handle menuProc; 
long enableFlags; Str255menuData; 
} MenulInfo, * MenuPtr, ** MenuHandle; 
WindowPtr DialogPtr ; 
struct EventRecord { int what; 
int modifiers; 
DialogPtr GetNewDialog(); 
downitem = 1, Sbreakitem, nulllitem, regItem , 
FregItem, null2Item, memitem, MemWitem,null3Item, 
Options, DumpItem,null4item,clearItem, helpItem }; 
eepolelD = 1, fileID, optID, widthID, incID»}; 


} Rect ; 


} BitMap; 
} Region, * RgnPtr,** RgnHandle; 


* GrafPtr; 


longmessage, when; Pointwhere, 
} EventRecord; 


Char ManSign[8],ExpSign[(8],Fbuf[(12],O0urEvent, DisAsmOut Buf [81]; 
long StaDisAdr,EndDisAdr; 

intBreakTimes [(5],Clear; 

meng registers[{24],Breaks[(5],fcregs(3], from,to,at; 

mera £reqs({Z20](8)],clrscn, instring(255],DisplaySteps; 

char ReturnTo, CameFmGo, Que buf[(2000], *Head, *Tail, *EndQue, RefScrn; 
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extern 
extern 
extern 


char 
char 
char 


long 


DialogPtr 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


/ =~ DOSEONCTION © 


WindowPtr DisplayWindow; 
Rect windowBounds,myRect,ClrRect; 


SerRec 


verify, Wil1GoTo=1,DisAssemble, PrintBuf [(2500),Experienced=0; 
GoToReg, Coprocessor, NotAfterGo=0,Brk Flag, Hardcopy=0; 


eat. = 
D6=. 


"DC=,SR=.USP=.SSP=.ISP=.D0=. D1l=. D2=. D3=.D4=. D5=. 
D7=.A0=. Al=. A2=. A3=.A4=. AS=. AG6G=. A7T=."; 


value ,tempvalue ,; 


dp; 

Vv Orel 
void 
void 
void 
WO 1G 
vo1d 
void 
vVord 
void 
VOLG 
wowed 
void 
void 
void 
long 
long 
void 
VoLd 
void 
VOlLd 
RON TE! 


fuNnct Tem 
- This function provides user interface to the debugger. 
Selection of a particular menu, such as registers menu or Go 


calls 


menu, 


Drant (eaar “ey 

DownLoad (int); 

dump (void) ; 
LastScreen(int); 
FillQue(int) ; 

DisAsm(); 

SOD simer Lushan 

wmemory (int, int) ; 

Se daaleu! 2 

DUMpPCOr Emini s, 
DumptoScreen @mt, chars”); 
help (void) ; 

lwoa( long , char *; sine 
LEO. (Ant. 47 Chareea 
atol(char *); 

ator (cham. e 
printhex(long,2nt) 
prnthex2@long, 1nt, 20), 
CheckHex (int, int) ; 
CheckDec (int, int, int); 
Error(char *,char “,CGRare eats 


etc., display of that menu, and the user’s manipulation 


of the fields in that menu, the update of that menu, etc., the: 
are all provided by "PG HUNG Iae ir 

arguments: 
- theItem 
called by: 
- HandleEvent () /download.c 
- HandleMenu()//download.c 


= Download ()/ monitor. 
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- dump()/monitor. 


- FillQue()/monitor.c 

- CheckHex()/menu.c 

- CheckDec()/menu.c 
=merinthex2() /Monitor.c 

- Stop_n Flush()/download.c 


- Error()/menu.c 
=ebeoa() /MONniLtor, 
=waiee 1. () /MOnLCOr . 
~sieoa () /MOniton. 
=eceo1()/monitor. 
peeeD() /MONLtOr, 
- wmem() /monitor. 


=s)asAsm()/monitor.c 
= DumptoPrn(i)/monitor.c 
- LastScreen()/monitor.c 


:/ 


doFunction (theItem) int theItem; 


{ 


char number[21],s[21]; 

static char width=1, step=1; 

amt 1i,j,type, change, first,k,mad; 
long ; 

Handle itemh; 

EventRecord myEvent ; 

Rect textbox; 


@2rscn=1; 
Switch(theItem) { 
case downitem: 

DownLoad (0); break; 
icase DumpIitem: 
| LastScreen(1); break; 
case regItem: 


dp=GetNewDialog (129,NULL, -1L) ; 


Seerort (dp) ;change=1; 
| morii=—0;1i<24;itt) { 


if (i==19) ltoa(registers[i],number, 4); 


Cc 


O-07@ 0:0 


Cc 


| else if (i1==23)ltoa(registers[i],number, 2); 


else ltoa(registers[i],number, 8); 
GetDIitem (dp, it2, &type, &itemh, &textbox) ; 


} 
Seeirext (dp,2,0,32000); 
do { 
SystemTask (); 


GetNextEvent (everyEvent, émyEvent) ; 


if(change) { 


GetDIitem(dp, 45, &type, &itemh, &textbox) ; 
SetCtlValue (itemh, registers [19] &0x010); 
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Set IText (itemh, number) ; 


GetDIitem(dp, 46, &t ype, &£itemh, &textbox) ; 
SetCt1lValue (itemh, registers [19]&8); | 
GetDitem(dp, 47, &type, &itemh, &textbox) ; 
SetCt1Value (itemh, registers [(19]&4); 
GetDIitem(dp, 48, &t ype, &itemh, &€textbox) ; 
SetCt1lValue (itemh, registers [19]&2); 
GetDitem(dp, 49, &type, &£itemh, étextbox) ; 
SetCtlValue (itemh, registers [19]&1); 
GetDitem(dp, 50, &type, &itemh, &€textbox) ; 
if (((registers [19]&0x3000) ==0x2000) && (Experienced) ) 
SetCTitle(itemh, "\pSupervisor") ; 
else 
if (( (registers [19] &0x3000) ==0x3000) && (Experienced) ) 
SetCTitle (itemh, “\pinterrupe oe | 
else 
SetCTitle(itemh, "\pUser") ; 
GetDIitem(dp, 51, &type, &itemh, &textbox) ; 
i=(registers[(19]>>8) &7; 
itoa((long) 1; number,). 
SetCTitle (itemh,number); 
} 
if (change==1) { 
ltoa(registers[(19],number, 4); 
GetDItem(dp, 21, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
ModalDialog (NULL, &theItem) ; 
if (theItem==53) { /* If ClearAll then Clear Registers DO-A6 */ 
ltoa(OL, number, 8) ; 
for (1=0;1<=14;71+ 2) { 
GetDItem(dp,1i+2, &type, &itemh, &textbox) ; 
SetIText (itemh,number) ; 
} 
} 
if ((theItem<26) && (theItem>1)) CheckHex (theItem, 8) ; 
change=0; 
if (theItem==21) { 
GetDIitem(dp,21, &type, &itemh, &textbox); GetIText (itemh, number) ; 
registers [19]=atol (number); 
if(((registers[19]&0x00000f00)>>8)>=4) { 
Error("\pInterrupt level >=4 " "\pwill crash the systema 
W Noise lb) Pa 
registers[{19]=((registers[19]&O0xfffFfOff) |0x00000300) ; 
ltoa(registers[19],number, 4); 
GetDIitem(dp,21, &type, &itemh, &textbox) ; 
Set IText (itemh, number) ; 
} 
change=2; 
if ((!Experienced) && ( (registers [19]>>12)!=0)) { 
registers [(19]=registers[19]é&0xcfff,; 
change=1; 
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} 


} 
if (theItem==45) { registers[(19] = registers{19] * 0x10; change=1; } 


if (theItem==46) {registers[19] = registers[19] * 8; change=1; } 
if (theItem==47) {registers[19] = registers[19] * 4; change=1; } 
if (theItem==48) {registers[{19] = registers[{19] * 2; change=1; } 
if (theItem==49) {registers[19] = registers[19] * 1; change=1; } 
if (theItem==50) { 
if (Experienced) { 
i=(registers[19]>>12)&0x07; 1=(i+1)%4; i=1<<12; 
registers[19] = (registers[19] & Oxcfff) |i; 
else registers[19] = (registers[19] & Oxcfff); 
change=1; 
} 
if (theItem==51) { 
i=(registers[19]>>8) &7; 
1=(i+1)&7; 
i=(i<<8) &0x0700; j=registers [19] &Oxf8ff; 
registers[19] = jli; 
if(((registers [19]&0x00000£00) >>8) >=4) { 
Error("\pInterrupt level >=4 ","\pwill crash the system", 
JG one ND) ; 


registers [(19]=(registers[19])&OxfffFfOff) |Ox00000300; 
} 


change=1; 
} 
} while((theItem != 1)&&(theItem != 54)); 
fema—O;1<24;itt+) { 
GetDItem(dp, it+2, &type, &itemh, &textbox); GetIText (itemh, number) ; 
registers [i]=atol (number); 
} 
if ((theItem==54)&&(CameFmGo)) { 
ReturnTo=1; 
go(); 
} 
else 
if (CameFmGo) ReturnTo=0; 
else ReturnTo=2; 
DisposDialog (dp); 
SetPort (DisplayWindow) ; 
Clear=0 ; OurEvent=1; 
break; 
Geese Fregitem: 
dp=GetNewDialog(133,NULL, -1L); 
SectPort (dp) ; 
Peeemrext (dp,2Z,0,32000); change=l1; 
jemi —O;1<8;itt+) { 
number ([0O]=17; 
fer (j—0; 3<17; j++) number(jt+1)=fregs[j] [1]; 


a2 


GetDItem(dp, 2* (1+i), &type, &itemh, &textbox); SetIText (itemh, number) ; 
number [0]=3; 
for (j=0; 3<3;3++) number [j+1]=fregs[j+17] [i]; 
GetDitem(dp, 2* (1+1i)+1, &type, &itemh, &textbox); SetiIText (itemh, numbem® 
number [0]=1; number [1]=ManSign[i]; 
GetDItem(dp, 2* (17+1),&type, &itemh, &textbox); SetIText (itemh, number) 7 
number [0]=1; number [1]=ExpSign[i]J; 
GetDItem(dp, 2* (17+i) +1, &t ype, &itemh, &textbox); SetIText (itemh, number) 
} 
for (1—0 91 <3 ae 
ltoa(fcregs[i],number, 8); 
GetDItem(dp, it+18, &type, &itemh, &textbox); SetIiText (itemh,number) ; 
} 
do { 
SystemTask (); 
GetNextEvent (everyEvent, &myEvent) ; 
if(change) { 
GetDIitem(dp,52, &type, &itemh, &textbox) ; 
SetCt1lValue (itemh, ((fcregs[0]>>1) &0x00004000) ); 
GetDIitem(dp, 53, &type, &itemh, &textbox) ; 
SetCtlValue (itemh, fcregs [0] &0x004000) ; 
GetDItem(dp, 54, &type, &itemh, &textbox) ; 
SetCt1lValue (itemh, fcregs[0]&0x002000) ; 
GetDItem(dp, 55, &type, &itemh, &textbox) ; 
SetCt1lValue (itemh, fcregs [0] &0x001000) ; 
GetDitem(dp,56, &type, &itemh, &textbox) ; 
SetCtlValue (itemh, fcregs [0] &0x000800) ; 
GetDItem(dp,57, &type, &itemh, &textbox) ; 
SetCt1lValue (itemh, fcregs [0] £0x000400) ; 
GetDItem(dp, 58, &t ype, &itemh, &textbox) ; 
SetCt1lValue (itemh, fcregs [0] £0x000200) ; 
GetDIiItem(dp, 59, &t ype, &itemh, &textbox) ; 
SetCtl1Value (itemh, fcregs [0] &0x000100) ; 
GetDItem(dp, 60, &type, &itemh, &textbox) ; 
SetCt1lValue (itemh, (fcregs [1]>>24) &0x08) ; 
GetDItem(dp, 61, &type, &itemh, &textbox) ; 
SetCtlValue (itemh, (fcregs [1]>>24) &0x04) ; 
GetDitem(dp, 62, &type, &itemh, &textbox) ; 
SetCt1lValue(itemh, (fcregs [1]>>24) &0x02) ; 
GetDIitem(dp, 63, &t ype, &itemh, &textbox) ; 
SetCtlValue (itemh, (fcregs [1]>>24) &0x01) ; 





if (change==1) { 

ltoa(fcregs[0],number, 4); 
GetDItem(dp,18, &type, &itemh, &textbox); SetIText (itemh, number) ; 
ltoa(fcregs[1],number, 8); 
GetDItem(dp, 19, &type, &itemh, &textbox); SetIText (itemh, number) ; 
ltoa(fcregs[(2],number, 8); 
GetDitem(dp, 20, &type, &itemh, &textbox); SetiIText (itemh, number) ; 
} 


60 


ModalDialog (NULL, &theItem) ; 

if (((theItem<17) && (theItem>1))&&((theItem % 2)==0)) CheckHex(theItem, 17) ; 
if(((theItem<18)é&&(theItem>2))&E&(((theItem+l1l) $2) ==0) ) 

CheckHex (theItem, 3) ; 

if ((theItem<50) && (theItem>33)) CheckDec(theItem,1,1); 

change=0; 

if (theItem==18) { 
GetDitem(dp,18, &type, &itemh, &textbox) ; 
fcregs[0]=atol(number); change=2; 
} 

if (theItem==19) { 
GetDitem(dp,19, &type, &itemh, &textbox) ; GetIText (itemh, number) ; 
fcregs[1]=atol(number); change=2; 


Get IText (itemh, number) ; 


} 
if (theItem==53) 


{ fcregs[0] = fcregs[0] * 0x004000; change=1; } 
if (theItem==54) { fcregs[0] = fcregs[0] * 0x002000; change=1; } 
if (theItem==55) { fcregs[0]) = fcregs[0] * 0x001000; change=1; } 
if (theItem==56) { fcregs[0] = fcregs[0] * 0x000800,; change=1; } 
if (theItem==57) { fcregs[0]) = fcregs[0] * 0x000400,; change=1; } 
if (theItem==58) { fcregs[0] = fcregs[0] * 0x000200; change=1; } 
if (theItem==52) { fcregs[0] = fcregs[0] * 0x008000; change=1; } 
if (theItem==59) { fcregs[0]) = fcregs[0] * 0x000100; change=1; } 
if (theItem==60) { fcregs[1] = fcregs[1] * 0x08000000; change=1; } 
if (theItem==61) { fcregs[1] = fcregs[1] * 0x04000000; change=1; } 
if (theItem==62) { fcregs[{1] = fcregs[{1] * 0x02000000; change=1,; } 
if (theItem==63) { fcregs[1] = fcregs[1] * 0x01000000; change=1; } 
} while (theItem != 1); 


for (i=0;1<8;1++) { 
GetDitem(dp, 2* (1+i),&type, &itemh, &textbox); GetiIText (itemh, number) ; 
for (j=0; 53<17;5++) fregs[j] [i]=number[jt+1]; 
GetDItem(dp, 2* (1+i)+1, &type, &itemh, &textbox) ; 
teem ( J=0; 3<3;9++) fregs[Jjt+17] [i] =number[j+1); 


Get IText (itemh, number) ; 


foE(i=0;i1<3;i++) { 
GetDItem(dp,i+18, &type, &itemh, &textbox) ; 
fcregs [i1J=atol (number) ; 


GetiText (itemh,number) ; 


Boma —O;1<16;1i1+=2) { 
GetDitem(dp, 34+1i, &type, &itemh, &textbox) ; 
ManSign[i/2]=number[1]; 

GetDitem (dp, 34+1+1, &type, &itemh, &textbox) ; 
ExpSign[i/2]=number[1]; 
} 

DisposDialog(dp); SetPort (DisplayWindow) ; 

Clear=0; OurEvent=1; 

break; 

memitem: 

fist —1 ; 

dp=GetNewDialog(130,NULL, -1L) ; 


GetIText (itemh, number) ; 


GetIText (itemh, number) ; 


setPort (dp) ; change=0; 
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ltoa(from,number, 8); 
GetDitem(dp,2, &type, &itemh, &textbox); SetiIText (itemh, number) ; 
ltoa(to,number, 8) ; 
GetDItem(dp, 3, &type, &itemh, &textbox); SetIText (itemh, number) ; 
ltoa(to-from, number, 5); 
GetDItem(dp,4,&type, &itemh, &textbox); SetIText (itemh,number) ; 
GetDItem(dp, 9, &type, &itemh, &textbox); SetCtlValue(itemh, DisAssemble) ; | 
SelITexrt (dp,Z, 0, 520007, 
Ged 
if (change==1) { 
ltoa(to-from, number, 8) ; 
GetDItem(dp, 4, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
if (change==2) { 
ltoa(to,number, 8); 
GetDItem(dp, 3, &type, &itemh, &textbox); SetIText (itemh,number) ; 
} 
SystemTask (); 
GetNextEvent (everyEvent, &myEvent) ; 
ModalDialog (NULL, étheItem) ; 
change=0; 
if (theItem==2) { 
GetDItem(dp,2, &type, &itemh, &textbox); GetIText (itemh, number) ; 
from=atol (number) ; change=1; 
} 
if (theItem==3) { 
GetDItem(dp, 3, &type, &itemh, &textbox); GetiText (itemh,number) ; 
to=atol (number) ;change=1; 
} 
if (theItem==4) { 
GetDItem(dp,4, &type, &itemh, &textbox); GetIText (itemh,number) ; 
to=atol (number) +from; change=2; 
} 
if((first&&DisAssemble) || (theItem==9)) { 
GetDItem(dp, 9, &type, &itemh, &textbox) ; 
SetCtlValue(itemh, DisAssemble=(theItem==9)? !DisAssemble:DisAssemble) 
} 
first=0; 
} while((theItem != 1)&&(theItem != 8)); 
DisposDialog(dp); SetPort (DisplayWindow) ; 
clrsen—vU;; 
if ((to-from>=500) && (theItem==1) &&(!DisAssemble)) { 
to=fromt+500; 
Error ("\pCannot dump more than ", "Vo S008 eam a 
ance be UR oe te To : 





} 

if ((to<from) && (theItem==1)) { 
ltoa(from,s, 8); ltoa (Co; number, 
Error ("\pCannot dump range ",s;™\pmto.. smectite 
} 
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else if (theItem==1) { 
if (DisAssemble) { 
StaDisAdr=from; EndDisAdr=to; 
NotAfterGo=1; DisAsm(); 
} 
else { 
NotAfterGo=0; dump(); 
} 
} 
if(RefScrn) LastScreen(0); 
Clear=0; OurEvent=0; 
break; 
case MemWitem: 
dp=GetNewDialog(132,NULL,-1L); SetPort (dp) ; change=0; 
ltoa(at,number, 8) ; 
GetDIitem(dp,2,&type, &itemh, étextbox); SetIText (itemh, number)  ; 
ltoa (value, number, width*2) ; 
GetDItem(dp,3,é&type, &itemh, étextbox); SetIText (itemh, number) ; 
first=l;theItem=0; SellIText (dp,2,0,32000) ; 
do { 
SystemTask(),; 
GetNextEvent (everyEvent, &myEvent) ; 
if ((first&&width==1) | | (theItem==6) ) { 
GetDItem (dp, 6,&type, &itemh, &textbox); SetCtlValue(itemh,1) ; 
GetDItem(dp,7,&type, &itemh, &textbox); SetCtlValue(itemh, 0); 
GetDiItem(dp, 8, &type,&itemh, &textbox); SetCtlValue(itemh, 0) ;width=1; 
} 
if((firsté&&width==2) | | (theItem==7) ) { 
GetDItem(dp, 6, &type, &itemh, &textbox); SetCtlValue (itemh, 0); 
GetDItem(dp,7,&type,&itemh, &textbox); SetCtlValue(itemh, 1); 
GetDItem(dp, 8, &type, &itemh, étextbox); SetCtlValue(itemh, 0) ;width=2; 
} 
if((first&&width==4) || (theItem==8) ) { 
GetDItem(dp, 6, &type, &itemh, &textbox); SetCtlValue(itemh, 0); 
GetDItem(dp,7,&type, &itemh, &textbox); SetCtlValue(itemh, 0); 
GetDItem(dp, 8, &type, &itemh, &textbox); SetCtlValue(itemh,1);width=4; 
} 
if ((firsté&step==1) || (theItem==9) ) { 
GetDItem(dp,9,é&type,&itemh,&textbox); SetCtlValue(itemh, 1); 
GetDItem(dp,10, &type, &itemh, &textbox); SetCtlValue (itemh, 0); 
GetDItem(dp,11, &type, &itemh, &textbox); SetCtlValue(itemh, 0) ;step=1; 


} 

if ((firsté&step==0) | | (theItem==10) ) { 
GetDItem(dp, 9, &type, &itemh, &textbox); SetCtlValue(itemh, 0); 
GetDItem(dp,10, &type, &itemh, étextbox); SetCtlValue(itemh, 1); 
GetDItem(dp,11, &type, &itemh, étextbox); SetCtlValue (itemh, 0) ; step=0; 
} 

if ((firsté&&step==-1) | | (theItem==11) ) { 
GetDItem(dp, 9,é&type,&éitemh,&textbox);  SetCtlValue(itemh, 0); 
GetDItem(dp,10, &étype, &itemh, &textbox); SetCtlValue (itemh, 0) ; 
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case 


GetDItem(dp,11, &type, &itemh, &textbox); SetCtlValue(itemh,1);step=-1; 
} 

if((firstéé&verify) || (theItem==12) ) { 
GetDIitem(dp,12, &type, &itemh, &étextbox) ; 
SetCtlValue (itemh, verify=(theItem==12) ? !verify: verify); 
} 


ETrst=0; 
ModalDialog (NULL, &theItem) ; 
if (theItem==3) change=1; 


if((theItem==2) && change) { 
GetDItem(dp, 3, &type, &itemh, &textbox); GetIText (itemh, number) ; 
value=atol (number); 
GetDIitem(dp,2, &type, &itemh, &textbox); GetIText (itemh,number) ; 
at=atol (number) ; 
wmemory (step, width) ; 
ltoa(at,number, 8); 
GetDIitem(dp,2, &type, &itemh, &textbox) ; 
Set IText (itemh,number); SelIText (dp, 3,0, 80); 
ltoa(value, number, width*2) ; 
GetDIitem(dp, 3, &type, &itemh, &textbox) ; 
Set IText (itemh,number); SelIText (dp, 3,0, 80); 


} 
} while(theItem != 1); 
GetDItem(dp,2,&type, &itemh, &textbox); GetIText (itemh,number) ; 
at=atol (number) ; 
DisposDialog(dp); SetPort (DisplayWindow) ; 
Clear=0; OurEvent=1; 
break; 
SbreakIitem: 
dp=GetNewDialog (131,NULL,-1L); SetPort (dp); 
changes Osusbiale Flag aU ou, 
for (1=0;1<5;itt) { 
ltoa (Breaks [i],number, 8) ; 
GetDIitem(dp,it2, &type, éitemh, &étextbox); SetIText (itemh, number) ; 
itoa(BreakTimes[i],number) ; 
GetDItem(dp, 1+14, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
ltoa(registers[18],number, 8) ; 
SellTexetds, 2070732000). 
GetDItem(dp,10, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 
first=change=1;theItem=0; 
olor 
SystemTask (); 
GetNextEvent (everyEvent, &myEvent) ; 
if ((firsté&&WillGoTo==1) || (theItem==8) ) { | 
GetDItem(dp, 8, &type, &itemh, &textbox); SetCtlValue(itemh, Wil1GoTo=1); 
GetDIitem(dp, 9, &type, &itemh, &textbox); SetCtlValue(itemh, 0) ; | 
} 
if ((firsté&&WillGoTo==0) | | (theItem==9) ) { | 
GetDItem(dp, 8, &t ype, &itemh, &étextbox); SetCtlValue (itemh, Will1GoTo=0); 
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GetDitem(dp, 9, &type, &itemh, &textbox); SetCtlValue(itemh,1); 


mem (i-071<5;71++) { 
GetDItem(dp,it2, &type, &itemh, &textbox); GetIText (itemh, number) ; 
tempvalue=atol (number) ; 
if ((Breaks[i])==tempvalue) { 
GetDIitem(dp,1+14, &type, &itemh, &textbox); GetIText (itemh, number) ; 
BreakTimes [1]=atoi (number) ; 
} 
else { 
Breaks [i]=tempvalue; 
if (Breaks[iJ!=0x00) { 
BreakTimes[i]=1; 
itoa(BreakTimes{i],number) ; 
GetDitem(dp,itl14, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
} 
if (Breaks [i1]==0x00) { 
BreakTimes [i]=0; 
itoa (BreakTimes [i],number) ; 
GetDitem(dp,i+14, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
if (change) { 
GetDItem(dp,13, &type, &itemh, &textbox) ; 
if ( (registers [19]&0xc000) ==0x8000) SetCTitle(itemh,"\pTrace All"); 
else 
if ((registers [19] &0xc000) ==0x4000) SetCTitle(itemh, "\pTrace Branch") ; 
else SetCTitle(itemh, "\pNo Trace") ; 
mom (i1—O0;1<5;itt) { 
ltoa (Breaks [i],number, 8); 
GetDitem(dp,it2, &type, &itemh, &textbox); SetIText (itemh, number); 
itoa (BreakTimes [1i],number); 
GetDItem(dp, 1+14, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
GetDiItem(dp,19, &t ype, &itemh, &textbox); SetCtlValue(itemh,DisplaySteps) ; 
GetDItem(dp,21, &t ype, &itemh, &textbox) ; 
if ((ReturnTo==1) || ( (ReturnTo==0) &&(GoToReg))) { 
SetCTitle(itemh,"\pRegister Menu") ; 
ReturnTo=1; GoToReg=0; 
} 
else if (ReturnTo==0) SetCTitle(itemh,"\pGo Menu") ; 
else SetCTitle(itemh,"\pNo Menu") ; 
change=0; 
} 
ModalDialog (NULL, étheItem) ; 
if (((theItem>=2) && (theItem<=6)) || (theItem==10)) CheckHex (theItem, 8) ; 
if ((theltem>=14) && (theItem<=18)) CheckDec(thelItem, 4, 9); 
if (theItem==7) { 
tome (1-072<5;1+4++) { 
ltoa (Breaks[ij]=0,number, 8); 
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GetDItem(dp,it2, &type, &itemh, &textbox); SetiText (itemh, number); 
itoa (BreakTimes[i]=0,number) ; | 
GetDIiItem(dp,i+14, &type, &itemh, &textbox); SetIText (itemh,number); 
} 
change=1; 
} 
if (theItem==19) { 
DisplaySteps= ! DisplaySteps; 
change=1; 


} 
if (theItem==21) { ReturnTo=(ReturnTotl) % 3; change=1; } 
if (theItem==13) { 
registers [(19])=(registers[(19])&0x3fff) | ((( (registers [19]>>14) +1) 3) <<1lé 
change=1; first=0; 
} 
} while((theItem != 1)&&(theItem != 11)); 
for (1=05 15) ad 
GetDitem(dp,1it2, &type, &itemh, &textbox); GetiIText (itemh, number) ; 
Breaks [1]=atol (number) ; 
GetDitem(dp,it+14, &type, &itemh, &textbox); GetIText (itemh, number) ; 
BreakTimes [1]=atoi (number) ; 
} 
GetDItem(dp,10, &type, &itemh, &textbox); GetIText (itemh, number) ; 
registers [18]=atol (number); : 
if (theItem==1) { 
if (ReturnTo==1) CameFmGo=GoToReg=1; 
else if (ReturnTo==0) GoToReg=0; 
else CameFmGo=GoToReg=0; 
if (registers[18]<0x1000) { 
Error("\pIllegal Go Address...","\p Must be over $1000.", "\p™) "am 
registers [18]=-0x00; Brk Flag=1I; 


} 
for (1=0;1<5;1i++) 
if ((Breaks [i]< 0x1000) €&& (BreakTimes[i]!=0)) { 
ttoa (({long) (141), s, 2) Bree hagas, 
Error("\pIllegal Breakpoint #",s,"\p Must be over $1000.", "\p™ 
Breaks [1])=0x0000; BreakTimes[i]=0; 
} 
} 
if((theItem==1) &&(!Brk Flag )) go(); 
if(theItem==11) { 
ReturnTo=2; 
CameFmGo=GoToReg=0,; 
} 
DisposDialog(dp); SetPort (DisplayWindow); clrscn=0; 
if ((theItem==1) €&(!Brk Flag )) { 
if ((ReturnTo!=0) &&(ReturnTo!=1)) { 
for (i=0, j3=0; 3<99; j++) { 
2EXE [3 ==! ae 
for (k=0;k<9;k++) { PrintBuf[i}J=’ ’;1++;} 
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1f ((j==3) 1 | (j==22) | | (j==41) 1 1 (3==60) 11 (9==79) 1 1 (5==98)) 
PrintBuf [1])=0x0d; i++; PrintBuf [i])=0x0a;i+t+; 
} 
} 
ese { SPrintBuf (ij=t(j); itt; } 
} 
prnthex2 (registers[18],8,3); 
prnthex2 (registers[19],4,17); 
MenchexZ (registers([(15],8, 30); 
prnthex2 (registers[16], 8,43); 
prnthex2 (registers[17], 8,56); 
for (1=70, j=0;1<281;1+=13, j++) { 
if ((i==122) | | (i==175) || (i==228)) i+t=1; 
prnthex2 (registers[j],8,1i); 
} 
StaDisAdr=EndDisAdr=registers([18]; 
if(!RefScrn) DumptoScreen(i, &PrintBuf[0]); 
peop mn Flush(); 
DisAsm(); 
prnthex2 (StaDisAdr, 8,1); 1+=8; 
PrintBuf (iJ]=0x20; i++; 
moeg—1,k=1;k<81;k++, 3++) PrintBuf[j]=DisAsmOutBuf[(k]; i=j; 
PrintBuf [i})=0x0d;i++; PrintBuf[iJ]=0x0a; itt; 
PrintBuf (i])=O0Ox0d;itt+; PrintBuf [i]=0x0a; 
FillQue(i-1); 
if (Hardcopy==1) DumptoPrn(i); 
} 
} 
if (ReturnTo!=2) Clear=2; 
else Clear=0; 
OurEvent=1; 
peop Flush(); 
break; 
case clearItem: 
EraseRect (&myRect); Clear=2; break; 
case helpitem: 
EraseRect (&émyRect); clrscn=0; 
help(); break; 
Case Options: 
dp=GetNewDialog(135,NULL,-1L); SetPort (dp); 
GetDitem(dp,5, &type, &itemh, &textbox); SetCtlValue(itemh, Experienced) ; 
GetDIitem(dp, 4, &type, &itemh, &textbox); SetCtlValue(itemh, RefScrn) ; 
GetDitem(dp,3,&type, &itemh, &textbox); SetCtlValue(itemh, Hardcopy) ; 
GetDItem(dp, 2, &type, &itemh, &textbox); SetCtlValue(itemh, Coprocessor) ; 
first=1; theItem=0; 
do { 
SystemTask (); 
GetNextEvent (everyEvent, &myEvent) ; 
if((first&&Experienced) || (theItem==5)) { 
GetDitem(dp,5, &type, &itemh, &textbox) ; 
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SetCtlValue (itemh, Experienced=(theItem==5)? !Experienced: Experienced) 


} 

if((firsté&RefScrn) || (theItem==4)) { 
GetDIitem(dp,4,&type, &itemh, &textbox) ; 
SetCtlValue (atemh,RefScrn= (theItem==4) ? !RefScrn: RefScrn) ; 
} 

if((firsté&&Hardcopy) || (theItem==3)) { 
GetDItem(dp, 3, &type, &itemh, &textbox) ; 
SetCt1lValue (itemh, Hardcopy= (theItem==3) ? !Hardcopy: Hardcopy) ; 
} 

if ((first&&Coprocessor) || (theItem==2)) { 
GetDItem(dp,2,&type, &itemh, &textbox) ; 


SetCtlValue (itemh, Coprocessor=(theltem==2)? !Coprocessor:Coprocessor) 


} 
fl ESt=OF 
ModalDialog (NULL, &theItem) ; 
} while (theItem != 1); 


DisposDialog(dp); SetPort (DisplayWindow) ; 
Clear=0; OurEvent=1; 
} 


return(1l); 


/* CHECK HEX () 


functeaon 
- This function cnecks to see if its argument is a valid 
hexadecimal number or not. If the number is not valid, 
an error message is displayed, and that entry is cleared. 
arguments: 
- theItem,n 
called by: 
- doFunction()/menu.c 
calls 
- Error()/menu.c 
- itoa() /moniwon.c 


x/ 
void CheckHex(theItem,n) int thelItem,n; { 


char number[21]; 
int i,j,type; 
Handle itemh; 
Rect textbox; 
GetDItem(dp, theItem, &type, &itemh, &textbox); GetIText (itemh,number) ; 
if(number[O]>n) { 
Error( "\pToo Many Dagits in: “, numbemy aio ye euee. 
ltoa (0L, number,n); 
GetDItem(dp, theItem, &type, &itemh, &textbox); SetIText (itemh, number) ; 
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— 


} 
Bor (1=1, J=0; i<number [0]; i++) 
J /=( (number [i]<’0’) 1/1] ((mumber[i]>/’ 9’) && (number [i] <’A’)) 
hy¢((number[{i]>’F’ ) && (number [i)<’a’))|]|(number[i]>’f’)); 
meij) { 
Merer( "\plllegal Hexadecimal Character in: ",number,"\p","\p") ; 
ltoa(OL, number,n); 
GetDitem (dp, theItem, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
} 


/* CHECK DEC() 


fone tion 
- This function checks to see if its argument is a valid 
Decimal number or not. If the number is not valid, an 
error message is displayed, and that entry is cleared. 
arguments: 
=eoneltem, nn, nz 
called by: 
| - doFunction() /menu.c 
calls 
= Eeeror () /menu.c 
= ltoa()/monitor.c 


*/ 
void CheckDec(theItem,n,n2) int thelItem,n,n2; { 


Smart number [21]; 
mat 1, j,type; 
Handle itemh; 
Rect textbox; 
GetDItem(dp, theItem, &type, &itemh, étextbox); GetIText (1temh, number) ; 
if(number[0]>n) { 
Maem \OTOO Many Digits in: ", number, "\p", "\p") ; 
ltoa(OL, number,n); 
GetDItem(dp, theItem, &type, &itemh, &textbox); SetIText (itemh, number) ; 
} 
for (i=1, j=0;i<number[0];it+) j]=( (number [i]<’0’) || (number[i]>‘n2’)); 
mc (}) { 
Error( "\pIllegal Decimal Character in: ",number,"\p","\p"); 
ltoa(OL, number,n); 
GetDiItem(dp, theItem, &type, &itemh, &textbox); SetIText (itemh, number) ; 
ms } 
i} 


/* ERROR () 
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function 
- This function displays an Error Message on the screen. 
The displayed message is a Pascal string, which is passed 
aS a parameter. 
arguments: 
m= (Sri 7 lee 
called by: 
- doFunction()/menu.c 
- CheckDec()/menu.c 
- CheckHex()/menu.c 
- go()/Monitor.c 
- wmem()/Monitor.c 
- CopyFloat () /Monitor.c 
= mMemadrspo()/ Monteo mac 
- HandleEvent () /download.c 
- CheckError()/download.c 
calls : 
- None 


a 


void Error( s, £ ,1 ,z) char “sy “i, 2 
ParamText(s, f£, 1, 2Z); 


Alere(2s 6,0 =), 
} 
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mii. 


Source code of monitor.c 


* Monitor.c */ 


mypedaet Struct { int v,h; 
mypedef Struct { int top,left,bottom,right ; 
typedef struct { int rgnSize; 


hae Oant -* 
r Reet ; 


RectrgnBBox; } Region,* RgnPtr,** RgnHandle,; 


extern char *Start, *end, *Head, *Tail, *EndQue, *StartQue; 
extern char fregs[20][8],clrscn,verify,DisplaySteps, ReturnTo; 
meee Char C,instring[(255], inbuf[(3001],E bytes[20],fregs{20] [8]; 
extern char Hardcopy, Coprocessor,WillGoTo, RefScrn, Reach, clrscn; 
extern char ErrorFlag,NotAfterGo,PrintBuf [2500],DisAssemble; 
Sxtern char ManSign[8],ExpSign[8],Fbuf[12],Que buf [2000]; 
extern int origin, BreakTimes [5]; 
extern long registers[24],Breaks[5],fcregs[3],from,to, at,value; 
extern void send(char); 
extern void sendprn(char); 
meeern void Error(char *,char *,char *,char *); 
extern void InputBuffer(); 
extern void CheckError(); 
extern void CopyRegs(); 
extern void CopyBrkCnts(); 
extern void Stop_n Flush(); 
extern Rect windowBounds,myRect, ClrRect; 
extern int ByteCount, LastLocCount, scrollsize,LocCount; 
extern RgnHandle myRgn,; 
char mor [}— " Onsite 32) “2-4 5 S607 +8) 9°) Ap Be eee: 
char DisAsmOut Buf [81], AbortEvent=0,AbortCount=0; 
int @eerne Count, numofchars; 
long StaDisAdr,EndDisAdr, *HISPC, *SubrAdr; 
/* DUMP () 
Pameccion: 
- This function performs the ’Memory Display’ operation. 
The two global variables (from, to) are set by the user. 
Size= to-from, bytes of memory are displayed, starting from 
the address ’from’. 
Also, user has the ’Disassemble’ option. In this case, the 
memory contents are first disassembled, and then displayed 
on the screen. 
arguments: 
called by: 
- doFunction()/menu.c 
calls 


- Stop _n Flush()/download.c 
Drawex()/monitor.c 
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memdisp()/monitor.c 
prnthex3()/monitor.c 
FillQue() /monitor.c 
DumptoScreen()/monitor.c 
DumptoPrn() /monitor.c 


iy) 

dump () 

{ 

char DisBuf[16}; 

int i, inbytes,disl,size, residual=0, inex; 
long from2,baseadr; 


stop n Flush(); 
line count=0; 
for (z=0; 2<56;2++) "Print Bue |z)]—courrei. 
PrintBuf [z]=0x0d; 
PrintBuf [z+1]=0x0a; z+=2; 
size=((int) (to-from) ) +1; 
numofchars=size; 
from2=from; 
if(size > 16) { 
if ((from2s&0x0000000£) !=0) { 
inbytes=16- (int) (from2é0x0000000fF) ; 
baseadr=from2sOxffFFfFFFO ; 
} 
else { 
inbytes=16; 
baseadr=from2; 
} 
prnthex3 (£EromZ2cOxOLetrre run, 2 ze 
for (1=0, disl=0;1< (16-inbytes) aie i ae ee 
Draw x(Z); 
DisBut l(drvsi)|=—' oe - 
} 
memdisp (from2, inbytes) ; 
for (1=0; 1<inbytes;ittydis il aa 
if ((instring[i] >=0x20) && (instring [i] <=0x7e) ) 
DisBuf [disl]=instring[i]; 
else 
DisButldisij=" . 


PrintBuf[z]='’ '; ztt+; 

for (1=0;1<16;i++,z++) PrintButl(2z)]-—pieeue eae 

Printveuel | 2 | =00a- 

PrintBuf [z+1]=0x0a; z+=2; 

numofchars-=inbytes ; 

baseadr+=16; 

if((line count==22)&& (numofchars>=16)) { 
line count=0; 


TZ 


mom 1NexX=—Z; inex<z+56;inex++) PrintBuf [inex] =tbuf [inex-z]; 
PrintBuf [inex] =0x0d; 
PrintBuf [inex+1]=0x0a; 
inext+=2; z=inex; 
} 
while(numofchars>16) { 
prnthex3 (baseadr, 8,2); 
memdisp (baseadr, inbytes=16) ; 
for (dis1=0; disl<inbytes;dis1+t+) { 
if ((instring[dis1] >=0x20) && (instring [disl1]<=0x7e) ) 
DisBuf [disl]=instring[disl]; 
else 
DisBuf [disl]=’ .’; 


PemmcBuf[zj)='’ '; z++; 
for (i1—0;1<16;it+,zt+) PrintBuf[z]=DisBuf [i]; 
PrintBuf [z]=0x0d; 
PrintBuf[z+1]=Ox0a; z+t=2; 
numofchars-=inbytes ; 
baseadrt+=16; 
if ((line_ count==22) && (numofchars>=16)) { 
line count=0; 
Pernt But[z})=Ox0d; PrintBuf [z+1]=0Ox0a; z+=2; 
for (inex=z; inex<z+56;inex++) PrintBuf [inex]=tbuf [inex-z]; 
PrintBuf [inex]=0x0d; 
PrintBuf [inex+1]=0x0a; 
inex+=2; z=1nex; 
} 
} 
prnthex3 (baseadr, 8,Z) ; 
memdisp (baseadr, inbytes=numofchars) ; 
fee —0;1<(16-inbytes) ;i++) Draw _x(z); 
(Geett—O;i<inbytes; i++) { 
if ((instring[i] >=0x20) && (instring[1i]<=0x7e) ) 
DisBuf[i]=instring[i]; 
else 
DisBuf[iJ=’.’; 
} 
Pee but[z]=—' °; zt+; 
for(i=0;i<inbytes;itt+,zt++) PrintBuf[(z])=DisBuf [i]; 
PrintBuf [z]=0x0d; 
PrintBuf [z+1]=0Ox0a; z+=2; 
} 
else { 
mmenenex<s (from2sOx0ffffLfLfOL, 8,2); 
if ((from2&0x0000000f) !=0) 
meme —O0, disl=0;1i<( (int) (from2&0x0000000f));dislt+t+,it+t) { 
Draw x(Z); 
residualtt; 
Pecbur(disl]=’ .’; 


We 


} 
else disl1=0; 
if (size<=(16-residual)) f{ 
memdisp (from2,size) ; 
for (1=0; 1<size; diel. a { 
if ((instring[1] >=0x20) && (instring [i] <=0x7e) ) 
DisBbuE [dis] ]=instring [aa 
else 
DisbBut (dzst|— 3. 
} 
for (i=0;1<(16-(sizetresidual)); ite prawns 
PrintBuf[z])=' '; zt++; 
for (i=0;i<(residualtsize) ;it+, z++) PrintBuf [z]=DisBuf [i]; 
PrintBuf [z]=0Ox0d; PrintBuf[z+1])=0Ox0a; z2+=2; 
} 
else { 
memdisp(from2, (16-residual) ); 
for (1=0;1<(16-residual) ;dislt++,it+t+) { 
if ((instring[i] >=0x20) && (instring [i] <=0x7e) ) 
DisBuf [disl])=instring[i]; 
else 
DisBut fldisil |=’ 27; 
} 
PrintBuf[z]=' '’; az+tt; 
for (1=0;1<16;it+,z++) PrintBuf [z]=DisBuf [i]; 
PrintBuf [z]=0x0d; PrintBuf [z+1]=0x0a; z+=2Z; 
baseadr=from2-residual+16; 
prnthex3 (baseadr,8,Z); 
memdisp (baseadr, (size-(16-residual))); 
for (1=0;1< (16- (size-16+residual) );11+) Drawieatae 
for (i=0, dis1=0;1<(16-(size-16+residual) ) ;disl++,it++) { 
if ((instring[1] >=0x20) && (instring[1i]<=0x7e) ) 
DisBut [ais] |—-insezaagias|, 
else 
DisBuf[disl]=’ .’; 
} 
PrintBuf[z])='’ '’; zt+; 
for (i=0;1<(size-(16-residual) );i++,z++) PrintBuf[z])=DisBuf [i]; 
PrintBuf [z]=0x0d; PrintBuf[z+1]=Ox0a; z2+=2; 
} 
} 
PrintBuf [z)=Ox0d; PrintBuf [z+1]=0x0a; 
PrintBuf (z+2])=0x0d; PrintBuf[z+3])=0x0a; z+=3; 
FillQue(z=-1); 
if ('RefScrn) DumptoScreen (z, &PrintBuf[0]); 
if (Hardcopy) DumptoPrn (z) ; 
AbortEvent=0; AbortCount=0; 


} 
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/* MEM DISP() 


munCctLOn: 


- This function helps ’dump()’ in performing the ’Memory Display’ 
operation. 


Maximum sixteen bytes can be handled by this function. 
arguments: 
- staradr, bytecount 
sailed by: 
- dump()/monitor.c 
calls : 
- send()/download.c 
Stop_n_ Flush()/download.c 
Error () /download.c 
| CheckError()/download.c 
lx / 
memdisp(staradr, bytecount) 
mat | =«bytecount ; 
long staradr; 


femar C,md code=0x04 ; 
fot «1, chksum; 
long iis 


isend(md_ code) ; 
for (1=0;1<=400;itt); 
for (i=24;1i>=0;1i-=8) send(c=(char) (staradr>>i) ); 
SerGetBuf (-6, &1) ; 
if(1>0) { 
numofchars=15; 
AbortEvent=1; 


} 
send (c=(char) ( (bytecount) >>0) ) ; 
CheckError (); 
if(!ErrorFlag) { 
| InputBuffer (bytecount+l) ; 
Porwi—U0;i<bytecount;i++) prnthex3(( (long) (instring[i])),2,2); 
for (i=0;i<bytecount;it++) { /* calculate checksum */ 
if (i==0) chksum =(instring[i] & Oxff) & Oxff 
mee ) chksum*=(instring[i] & Oxff) & Oxff 
} 
if ((chksum!=((instring[1i]) & Oxff) & Oxff))&&(!AbortEvent) ) 
Beer ('"\pChecksum error.Restart","\p","\p", "\p") 3 
if ( (AbortEvent) €&& (AbortCount==0)) { 
feed \pBoard Aborted...","\p","\p","\p") ; 
PMeoreCounttt; 
} 


f 


e 
f 


1S 


ErrorFlag=0x00; 
NaLigns) (ereiblion Garay 4 
SCOP emer lushaG):, 


} 


/* W MEMORY () 


funee Len: 

- This function performs the ’Memory Modify’ operation. ’ Verifty@ 
option is also available to the user. In this case, a write is 
done to, and following this, a read from that memory location 
is perfomed. Then, the two are compared. 

arguments: 
- step, width 
calWed= by. 

- doFunction()/menu.c 

calls 

- send()/download.c 
Error ()/download.c 
CheckError()/download.c 
InputBuffer() /download.c 


7 

wmemory (step, width) 
int step widths, 

{ 


char c,mm_code=0x05 ; 
pi pe ee BS 3 | 


send (mm_code); 
for (i=0;i<=400;it+t); /* for Timing adjustment */ 
if (!verify) send(c=(char) (width>>0)); /* send size of the operand*/ 
if (verify ) send(c=(char) ( (width|0x0080)>>0) ); 
for (1=24;1>=0;1-=8) send(c=(char) (at>>1)); 
switch “(widen ay 
case 4 : for (1=24;1>=0;1-=8) send(c=(char) @alue>>i)); 
LE{ Vernier ya 
InputBuffer (4); 
if((instring[0] !=(c=(char) (value>>24))) || 
(instring[1]!=(c=(char) (value>>16))) || 
(instring[2] !=(c=(char) (value>>s 3a 
(instring[3]!=(c=(char) (value>>0 ))) ) { 
Error ("\pVerify Failed, Try Again”) ~ ) > ae 
at-=step*width; 
} 
} break; 
case 2 : for(1=8;1>=0;1i-=8) send(c=(char) (value>>1i1)); 
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if(verify) { 
Imout Buffer (2) ; 
fee (anstring[(0) !=(c=(char) (value>>8s))) || 
(instring[1]!=(c=(char) (value>>0))) ) 
mimaor(  \overaty Failed, Try Again", "\p","\p", "\p"); 
at-=step*width; 


} 
} break; 
case 1 : send(c=(char) (value>>0) ); 
if(verify) { 
InputBuffer (1) ; 
if(instring[0] !=(c=(char) (value>>0))) { 
Piao) \pVveraty Failed,Try Again", “\p™,"\p","\p") 
at-=step*width; 
} /* If Verify fails, do not increment/decrement the address */ 
}break; 
default : break; 
J 
at+=step*width; 
CheckError (); 
ErrorFlag=0x00; 
J 


ae 6GO() 


mame 1 ON : 
- lias Lunctions pentorms the ‘Go’ operatdon.—Program Counter, 
Trace Mode etc., are set by the user in Go Menu. 
arguments: 


called by: 
- doFunction()/menu.c 
calls 
- send()/download.c 
Stop_n_ Flush()/download.c 
sendregs()/monitor.c 
SendFloat () /monitor.c 
Checkbhrror()/download.c 
InputBuffer () /download.c 
CopyRegs () /download.c 
CopyBrkCnts () /download.c 
itieoatie Monitor. c 
Error()/download.c 
CopyFloat () /monitor.c 


ef 


Jo) { 
eAhar c,s[21),go code=0x02; 


a, 


a oe iuee Beer ie 
long SaverPC, long 1loci—0 pleonqmloez aw 


SeOp einer luschrG, 
i1f(!WillGoTo) { 
go_code=0x03; 
Save PC=registers[18]; /* In case Of Gaim 


Sendi(goTeoae); 
for (i=0; 1<=400; i++) ; 
send(DisplaySteps) ; 

/* Send BreakPoints */ 
£or(i=0; 1<5;7 14-4 eee 

if (BreakTimes [i]==0) for(j=0; 37<4; j++) send(0Ox00); 

if (BreakTimes (1])==1) for (j=24; 3>=0; j-=8) send(c=(char) (Breaks[i]>>}4)); 

if (BreakTimes[i]>1) for(j3=24; 4>=0;j-=8) send(c=(char) (Breaks[i]>>j4)); 
} 

/* Send BreakCounts */ 

for (i=0;1<5;1i++) { 
if (BreakTimes[i]}>1) 
for (j=8; j7>=0; j3-=8) send(c=(char) (BreakTimes [i]>>)j))-; 
else { 
send (0x00) ; 
send (0x00Q) ; 
} 
} 

/* Send Register info. */ 
sendregs (); /x* Send 68020 Registers */ 
if (Coprocessor) SendFloat (); /x Send 68881 Registers */ 
CheckError (= 
BEC! Ereort lag) aa 

if (Coprocessor) InputButfer (lo; 7iz sc © 
else 
InpuEebuttexr (lC7), 
CopyRegs (); /* Copy 68020 Registers */ 
CopyBrkCnrs G7, 
if (instring[106]==0x55) { 
ltoa(registers([(18],s, 8); 
Error("\pPrivilege violation ","“\p At address (27) jee 


} 
if(!WillGoTo) registers [(18]=Saveure, 
if (Coprocessor) CopyFloat (107) ; /* Copy 68881 Registers */ 


} 
ErrorFlag=0x00; 
SEope ne nish (es 
} 


/* HELP () 


78 


function: 
- This function displays help information on the screen. 
aeoguments: 


called by: 
- doFunction()/menu.c 
calls 
- print ()/monitor.c 
* / 
help () { 


Merne(™\pl- If you want to use Coprocessor instructions, you\n") ; 

Meant ("\p need to select Coprocessor option. This can be done\n"); 
wreint("\p in Options Menu.\n"); 

print ("\p2- If you want to have a printout of what you see, \n"); 

Meant ("\p you need to select Hardcopy option. This can be done\n") 
meant ("\p in Options Menu.\n"); 

print ("\p3- If you can not select Supervisor State to work in,\n"); 
meant ("\p you need to select Experienced option. This can be done\n"); 
weant("\p immootions Menu. \n") ; 

print ("\p4- User is not allowed to set the Interrupt Level, to\n"); 
Meant ("\p a value greater than 3.\n"); 

Meet ("\p5- If you suspect that your program, running on the\n"); 

Weant ("\p ECB, seems to be in an endless loop, or out of control, \n"); 
@eant ("\p press Abort Button on the ECB. In this case, you will\n"); 
meant ("\p see the current register contents.\n"); 

feeeeene \DO- If the solution in statement 5 above, won’t work, \n"); 

igeont ("\p press Reset Button on the ECB. Also Reset Macintosh.\n"); 


} 


/* 


| 


LTOA () 
mametion : 
- This function converts from long integer to Ascii. 
arguments: 
ao .,s, len 
eeured by: 
- doFunction()/menu.c 
- CheckHex()/menu.c 
- CheckDec()/menu.c 
- go()/Monitor.c 
pee ulntehe.() /Monitor.c 
=) prime@hex2() /Monitor.c 
pep uuMenec<s ()/Monitor.c 
pe Copy! ioat () /Monitor.c 
calls : 


- None 


1 


ltoa(l,s,len) 
char s (as); 
long i; 

int len; 

{ 


1nte 1; 


for (i=s[(0}=len;1i>0;1i--) { 
s(1}]=(1&0x0f) +’0’ -;if(s[i]>/’ 97) 
1=1>>4; 
} 


/*  ITOA@) 


funee Lon : 
- This function converts from 
arguments: 
- n,s 
called by: 
- doFunction()/menu.c 
calls 
- None 


ays 
itoa(n,s) 
char si}; 
Tite ie 
{ 
int 2=1 cok. 
s[(0)=4; 
for (i1=471i1>=171-——) 
if ((n%10) ==0) s[i}=’0’; 
else 
s{ij=n %$ 10 + 
n/—10- 
} 


os AG 1) 


fnmet OMe 
- This function converts from 
arguments: 
- Ss 
called by: 
- doFunction()/menu.c 
calls 
- None 
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s [1)+=7; 


integer to Ascii. 


Ascii to integer. 


-/ 

mit atoi(s) 

emar S[]l; 

{ 

ment i,n; 

n=0; 

mer (a=lei<=s[(OJ;it+tt+) n= 10 * n + s[{i] - ’0’; 
return (n); 

} 


/* ATOL() 
mance ion: 
Gero LUNCLION Converts from Ascii to long integer. 
arguments: 
a 
called by: 
- doFunction()/menu.c 
calls 
- None 
x / 


long atol(s) 
l@@ar s[(21]; 
{ 

mmc i; 

long 1; 


1=0; 

for(i=1;i<=s(0OJ;it++) { 
meena )>’ 9’) s[(i)]-=7; 
Motes tij—’ 0’) &0x0f)+(1<<4); 
} 


return (1) ; 


} 


/* DOWNLOAD () 


moet On ; 
peltnas Lunction performs the ’Download’ operation. First the 
user program is downloaded to Educational Computer Board. 
Then, the current register values, Coprocessor register values 
(1£f Coprocessor option is used), are received from the ECB. 
arguments: 


Called by: 


- doFunction()/menu.c 
calls 
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- send() /download.c 
Stop_n Flush()/download.c 
CheckError() /download.c 
CopyRegs () /download.c 
CopyFiloat ()/monttorne 
InputBuffer () /download.c 


x / 
DownLoad () 


char *p,bite, down _code=0x00; 
Tote -chksum, 2; 


longs; 

SEGpa ee Lu Shree, 

if (Coprocessor) down _code=0x08; /* If Coprocessor is to be used 7 
send (down code) ; 

for (i=0; i<=400;i++) ; /x for Timing purposes */ 


for (p=start;p<end;pt+t) { 
if (p==startt+8) chksum=(bite=*p & Oxff) & Oxff ; 
if(p>start+8 ) chksum*’=(bite=*p &0xff) & Oxff ; 
SerGetBuf (-6, &1) ; 
if ao) { 
ErrorFlag=1; 
break; 
} 
send (*p) ; 
} 
it (! Errore lag) send (enicsum~, 
CheckE rror (er. 
Ff ('Errork lag) { 
a© (COprocesson) 34 
InputBuffer (964+12+96) ; 
CopyRegs(); CopyFloat (96) ; 
} 


else { 
Inpurbureremt7o)., 


CopyRegs (); 
} 


} 
ErrorFlag=0x00; 


SCOp ner lush (i 
} 


/* PRINTHEX () 


functe lem: 
- This function prints onto the screen in hexadecimal format. 


eiseame te se: 
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called by: 
- DisAsm()/monitor.c 


calls 
—momant ()/monitor.c 
itoa()/monitor.c 
x / 
fronchex (1, i) 
ot i; 
Hong 1; 


{ 

@ear s[21]; 

ieoa(l,s,i); 

Meanc(s); DrawChar(’ ‘); 


} 


7 PRINT () 
Pemction: 
mebes function prints a string onto the screen. 
meaument s : 
a is 
Saried by: 
—eprintehex()/monitor.c 
- help()/monitor.c 
- DumptoScreen()/monitor.c 
- DisAsm()/monitor.c 
calls 
= IWheyens 
wf 
Beint (s) 
Gmar s[]; 
{ 
iat. i; 
Beant p; 


for(i=1l;i<=s[0OJ);it++) { 
mest aj=—'\n’) { 
Perot lRect (émyRect, 0,-(scrollsizet4),myRgn) ; 
MoveTo(4,myRect .bottom-40) ; 
} 
else 
DrawChar(s[iJ]); 
} 
} 


/* PRINTHEX2 () 
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Lanett Lon: 
- This function, together with the ‘’Print2’ function, Ca@pe@eouam 
hexadecimal data to the ’PrintBuf’. 


arguments: 
= ae 
called by: 
- DisAsm()/monitor.c 
- doFunction()/menu.c 
calls : 
= print ZO meni tor a 
ltoa 07 mentor ce 
* / 
prmtnex, (11, y) 
age ob es 
long 2; 
{ 
char “siiziit 


1itoa(les- a) 
PrineZ (so 
} 


/* PRINT2 () 
LE Snes 1S) gl 
- This function, together with the ‘’printhex2’ function, 
copies the hexadecimal data to the ’PrintBuf’. 
arguments: 
-— S,y 
called by: 
= Vonenlighelotare (\)) //renlae oie . 
calls 
- None 
x 
DEintZ (enw) 
char s[]; ( 
UOWe A 
{ 
ite ey 
for (= e—s 0 1 ae ey) et 
if(s({i)==’ \n’) break; . 
else 


PrintBuf[y]=s[il]; 
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/* PRINTHEX3 () 


munet ion : 
Sabito Lunction, together with the ‘Print3’ function, copies the 
hexadecimal data to the ’/PrintBuf’. 

arguments: 

= ll, Y 

called by: 

- Gump () /monitor.c 

- memdisp() /menu.c 


calls : 
Beene > {) /monitor.c 
Jto0a()/monitor.c 
“7 
m@enthex3(1,i,y) 
mo i1,Y; 
Beng 1; 


{ 

Ghar s[{21]; 
Meoa(1,s,i); 
mmeints(s,y); 
} 


/* PRINT3() 
mupiect ion : 
- This function, together with the ‘’printhex3’ function, 
copies the hexadecimal data to the ’/PrintBuf’. 
arguments: 
— 8,Y 
called by: 
Peerincehnex> ()/monitor.c 
Calls : 
=- None 
Ki 
Deint3(s,y) 
char s[]; 
mat Vy; 
{ 
mat i; 


for (i=1;i<=s[(0);it++, yt+t) { 
if(s{iJ==’\n’) break; 
else 
PrintBuf[y]=s[il]; 
} 
mene Butfy]=’ ’; yt; 
Z=y; 
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/* SEND REGS () 


fUREeELON- 


- This function downloads all the MC68020 


Register contents to the ECB. 
arguments: 


called by: 
- go()/Monitor.c 
calls 
- send() /download.c 
CheckError() /download.c 


a /f 

sendregs () 

{ 

char outchar; 

int m,chksum; 

long tempbuf=0; 

for (m=O0;m<24;m++) { 
tempbuf=registers [m]&0xff000000; 
outchar=(char) (tempbuf>>24) ; 


if (m==0) chksum =(outchar & Oxff) & Oxff; 


else 
chksum “=(outchar &€ OxXfE) <4 0x GE, 
send(outchar) ; 
tempbuf=registers [m]&0x00ff0000; 
outchar=(char) (tempbuf>>16) ; 
chksum *=(outchar & Oxff) & Oxff; 
send(outchar) ; 
tempbuf=registers [m]&0x0000ff00; 
out char=(char) (tempbuf>>8); 
chksum “=(outchar & Oxff) & OxfE; 
send(outchar) ; 
tempbuf=registers [(m]&0x000000f Ff; 
outchar=(char) (tempbuf>>0) ; 
chksum *=(outchar & Oxff) & Oxff; 
send(outchar) ; 
} 

send( (char) chksum) ; 

CheckError(); 

ErrorFlag=0x00; 

} 


/* DUMP TO PRN() 
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Data/Address/Control 


miomcti1o0n: 
=meets function sends the contents of ’PrintBuf” to the prianter. 
arguments: 
- index 
called by: 
- doFunction()/menu.c 
- dump()/Monitor.c 
- DisAsm() /Monitor.c 
- LastScreen()/Monitor.c 
calls : 
- sendprn () /download.c 


ay / 

DumptoPrn (index) 

int index; 

{ 

mit i; 

for (1=0;1<=index;itt) 
sendprn((char) (PrintBuf[i])),; 

} 


/* DUMP TO SCREEN () 


fameccion: 
“wittwemrlncteton sends the data, pointed to by ’ptr’, to 
the screen. 
arguments: 
me lndex, ptr 
called by: 
~ doFunction() /menu.c 
- dump() /Monitor.c 
- LastScreen()/Monitor.c 
calls 
- None 


KS 
JumptoScreen (index, ptr) 
moar *ptr; 

int index; 

{ 

Baar DrwStr[(255]; 

mt i, j=l; 


mer (i1=0;1i<=index;itt) { 
if (*ptr==0x0d) { 
Dewstr[(Oj=j-1; 
DrawString(DrwStr) ; j=1; 
pene ("\p\n") ; 
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Ditech —2., i++; 
} 

else { 
DrwStritg]=CrPpenm. 
Distal tt; 
} 


/* DRAW X() 


AUN ETE alegre 
- This function writes the character into ‘’Printeaee 
arguments: 
7 oy 
called by: 
= dump Monto ine 
calls : 
- None 
wa 
Draw x(y) 
1 iiteeny 


{ 

Print eu iyi sa 
PrintBuf [y+1]=’ x’; 
PrintBuf [y+2]=’ ‘'; 
Z=yt3; 

} 


/* DIS ASM() 


EuNnecElon. 
- This function disassembles the code, 
arguments: 


called by: 
- doFunction()/menu.c 
calls 
- send()/download.c 
print () /monitourse 
printhex() /monitor.c 
FillQue() /monitomare 
Printhexz () /monteeume 
DumptoPrn() /monitor.c 
InputBuffer () /download.c 
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which is passed Gomes 


ee — —= . 


* / 
DisAsm () 


@aar c,Dis code=0x04 ; 
oat 3 Fixcount=12,1 ; 
asm { 
LEA @44,A0 ; 
MOVE.L AO,HISPC; 
} 
DisAsmOutBuf [0]=80; 
*HISPC=StaDisAdr; 
do { 
send(Dis code) ; 
for (i=0;i<=400;i++); 
for (1=24;1>=0;1i-=8) send(c=(char) (StaDisAdr>>1)); 
send(c=(char) ((Fixcount)>>0)); 
tomo Buffer (13) ; 
fem i—O0;1<12;it+) DisAsmInBuf [1]=instring[i]; 


asm { 
MOVEM.L DO-D7/A0-A7,-(SP) ; 
BRA a45-> 
G4: DC.L Ox00000000; 
@45;: LEA DisAsmInBuf,Al; 
MOVE .L (Al) +,D0; 
MOVE. L (Al) +,D1; 
MOVE. L (Al) +,D2; 
LEA DisAsmOutBuf,Al; 
ADD.L #1,Al1; 
MOVE .L @44,A2; 
MOVE.L Al,-(SP); 
MOVE.L DO,-(SP) ; 
MOVE.L D1,-(SP); 
MOVE. L D2,-(SP); 
MOVE .L AZ, -—(SEe; 
MOVE. L SubrAdr, A3; 
tok (A3) ; 
MOVE .L (SP) +,A2; 
LEA @44,A3; 
MOVE. L D(A 3 ue 
ADD .L #16, SP; 


MOVEM.L (SP) +,D0-D7/A0~-A7; 
} 
printhex(StaDisAdr, 8); 
print (DisAsmOutBuf) ; 
emerae("” \p\n") ; 
if(NotAfterGo) { 
i=0O; 
prnthex2 (StaDisAdr, 8,1); 
i+=8; 
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Preamteaut |oj—— 
for (1=9;1<88;1i++) PrintBuf {1 }=DisAsmOutebur i. -—o 
PrintBuf [i] =0x0d; i++; 
PrintBuf [i] =0x0a; 
FillQue (itl); 
If (Hardcopy) Dumpeorun(a), 
} 
StaDisAdr= *HISPC; 
} while (StaDisAdr <= EndDisAdr) ; 
NotAfterGo=0; 
} 


/* COPY FLOAT () 


LE WIGNER TLOVQ) 
- This function copies the Floating Point Registers, which 
are uploaded by the ECB. 
aEegumenes. 
- fmWhere 
called by: 
- DownLoad()/Monitor.c 
= Get) /Mon tors 
Calis : 


tea Or mon Leorre 
- Error ()/download.c 


x7, 
CopyFloat (fmWhere) 
int fmWhere; 
{ 
char instring2[4],NotNumber=0,s[21]; 
Ine 1, i, Kk, PaO, 
r=fmWhere; 
while(p<3) { /* First Copy Coprocessor’s control registers */ 
fcregs[pJ= 0; 
LOT a0, 4a) en 
PHS is Ney) Hs ts be) le le 
1 es a 
} 
for (j=0;53<4; j++) fcregs[p]=(instring2[(j] &0xff) +(fcregs [p)]-——ae 
DE; 
} 
fmWhere=r; 
for (j=0; 3<8; j++) { 
for (1=0;1<12;i+t+) Fbuf(i]=instring(imWhereti4) ae 
fregs [0] [jj )/=FPbubls 1030, 
fregs [17] (j]=(Fbuf [0] &0x0f) +0x30,; 
fregs [18] [jJ=((Fbuf (1]>>4) &0x0f) +0x30; 
fregs [19] [jJ=(Fbuf[1]&0x0f) +0x30,; 
for (eH=ly 120 ee 
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seme fregs (rj [j])<0x30) || (fregs[r][jJ>0x39)) { 
fOr Wo-0;p<20;ptt) fregs([p) [j)=0x30; 
NotNumber=1; 
hmeoae (long) (j),8,2); 
Error("\pNot A Number ie DOL Lt inate 


"\piIn FPReg. # ",s); 


} 

if(!NotNumber) { 

if ((Fbuf [0]&0x80) !=0) ManSign[j]='-’; 
else 

ManSign[j])=' +’; 
if ((Fbuf[0]&0x40) !=0) ExpSign[3]='-'; 
else 

ExpSign[j]='+'; 

Meet —1,k=4; k<12; it=2,k++) { 
fregs[i}[43] =((Fbuf[k]>>4) &0x0f)+0x30; 
fregs (i+1] (j3]=(Fbuf [k] &0x0f) +0x30; 

} 
} 

NotNumber=0; 

} 

} 


/* SEND FLOAT () 


fore t ion: 
- This function downloads the Floating Point Registers, 
arguments: 


called by: 
aot) /MOnlcor.¢c 

calls : 

- send()/download.c 


x / 
SendFloat () 


{ 

Char outchar, chksum; 
ime 1, j,k; 

long tempbuf; 


to the ECB 


Mer (j—0;9<3;5t+) { /* First Send Control,Staus,I Registers */ 


tempbuf=fcregs([j]&O0xffO000000; 
outchar=(char) (tempbuf>>24) ; 
if(j==0) chksum =(outchar & Oxff) & Oxff; 
else 

@meoum “=—(outchar & Oxff) & Oxff; 


oil 


send(outchar) ; 
tempbuf=fcregs[j]&0x00ff0000; 
outchar=(char) (tempbuf>>16) ; 
chksum *=(outchar & Oxff) & Oxff; 
send(outchar) ; 
tempbuf=fcregs[j]&0x0000ff00; 
outchar=(char) (tempbuf>>8) ; 
chksume-=(outemhar & Oxif) Suse 
send(outchar) ; 
tempbuf=fcregs[j]&0x000000fFf; 

out char=(char) (tempbut>->0) ; 
ehksum “=(outchar 6 OxfLf) 6 ete 
send(outchar) ; /x Control registers are sent */ 


} 


FOr (j=Orey< 87 ot) 


} 


if (ManSign[j]==’+’) Fbuf[0])=0x00; 
else 
Fbuf [0] =0x80; 
if (ExpSign{j]==’ +’) Fbut (0]=Fbust (Ole 
else 
Fbuf[0)=Fbuf[0] | 0x40; 
Fbuft [0] =Fbut (ON ttregs [iii — Or 
Fohuf[(1J=( ((fregs[{18] [}]-0x30) <<4) | (fregs[13]5)-—6: Oe 
Fbouf [2] =0x00; 
Fbouf (3) =fregs [0] [3] -0x30; 
for (i=4,k=1;i<12;i++,k+=2) 
Fbouf (i)=((fregs[k] [3] -0x30) <<4) | (fregs [k+1] [3] -Ox30) ; 
for (k=0;k<12;k++) { 
send(Fbuf[k]); /* Send Floating Point Registers */ 
chksum “=(Fboutik] & Oxffje 05s: 
} 


send(chksum) ; 


} 


Hes 


ard 


LAST SCREEN () 


LUNCE one 
- This function displays the latest screen-full information. 
aragume nis: 
= 5 
called by: 
- doFunction()/menu.c 
- HandleEvent () /download.c 
Ga liss 
- DumptoPrn() /monitor:c 
- DumptoScreen()/monitor.c 


92 


LastScreen (k) 
mit k; 
{ 
int i, lineNum; 
long difference, 
if(k!=2) { 
Tail=Head; 
lineNum=0O; 
mor (;;) { 
if(lineNum>20) { 
Tailt+=2; break; 
} 
if (Tail< StartQue) { 
Tail=EndQue; 
if(Reach) { 
Tail=StartQue;break; 
} 


if ((*Tail)==0x0a) lineNum++; 
Tail--; 
} 
difference=Head-TailtlL; 
if (difference<0) 
difference=( (EndQue-Tail) + (Head-StartQue) )+2L; 
for (i=0;i<(int) (difference) ;itt+) { 
PrintBuf [i] =*Tail; 
Tailt+; 
if (Tail>EndQue) Tail=StartQue; 
} 
BraseRect (&myRect) ; 
DumptoScreen (( (int) (difference) -2),&PrintBuf[0]); 
mek) DumptoPrn(((int) (difference) -2),&PrintBuf([0)); 
} 
} 


fee FILL QUE() 


Pumet ion : 
- This function adds the latest data to the circular queue. 
ee guments: 
- index 
@atted by: 
- doFunction()/menu.c 
dump () /Monitor.c 
DisAsm() /Monitor.c 


calls : 
- None 


ve 


FillQue (index) 
int 2ndex; 
{ 


int ae: 


for (i=0;i<index;itt) { 
if (Head>EndQue) { 
Head=StartQue; 
Reach=0; 


} 
*Head=PrintBuf [i]; 


Head++; 
} 
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iv. Source code of disasm.c 


Dassy () 


{ 
extern long *SubrAdr; 


/* 
BUFSIZE EQU 80 ;SIZE OF OUTPUT BUFFER 
BOT EQU 4 : 
FDATA EQU 4 ;DATA FIELD 
FOC EOU Sal "OP -CODE, | fe LD 
FOP EQU 39 ;OPERAND FIELD 
LOCVARSZ EQU IG 
*/ 
asm { 


MOVEM.L DO-D7/A0-A7,-(SP); 

LEA @DECODE,AO =; 

MOVE.L AO, SubrAdr,; 

LEA @1S2,A0 ;THE FOLLOWING CODE (UNTIL THE LINE 
LEA @PGM,A4 ; /* DISASSEMBLY PROGRAM BEGINS */), 
LEA @ISHIFT,A5 ; CALCULATES THE DISPLACEMENT OF A 
LEA @ISH1,A6 ; ROUTINE HANDLING ANY PARTICULAR 
BSR @SUBR ; INSTRUCTION (SUCH AS MOVE, ADD ETC.) 
LEA @ISH2,A6 ; FROM THE BEGINNING OF THE PROGRAM. 
BSR @SUBR ; THIS DISPLACEMENT VALUE IS THEN 
LEA @ISH3,A6 ; WRITTEN INTO THE CORRESPONDING 
BSR @SUBR ; ENTRY IN TABLE "@TBL". 
LEA @I1SH4,A6 ‘ 
BSR @SUBR : 
LEA @I1SH5,A6 ; 
BSR @SUBR ; 
LEA @ISH6,A6 : 
BSR @SUBR : 
LEA @ISH7,A6 : 
BSR @SUBR ; 
LEA @ISH8,A6 ; 
BSR @SUBR ; 


LEA @FORMI1OEX,AS; 
LEA @F10EX1,A6 
BSR @SUBR 

LEA @F10EX2,A6 


BSR @SUBR 
LEA @F10EX3,A6 
BSR @SUBR 


LEA @F10EX4,A6 
BSR @SUBR 


Me Be Be We Neo Be Bo Wo 
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LEA 
BSkK 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 


@F1OEX5, A6 
@SUBR 
@F1OEX6, A6 
@SUBR 


@FORM12,A5 
@F121,A6 
@SUBR 
@F122,A6 
@SUBR 
@F123,A6 
@SUBR 
@F124,A6 
@SUBR 


@FORM9,A5 
Q@F91,A6 
@SUBR 


@FORM8,A5 
@F81,A6 
@SUBR 


@FORM7,A5 
@F71,A6 
@SUBR 


@FORM6D,A5 
@F6D1,A6 
@SUBR 
@F6D2, A6 
@SUBR 
@FOD3,A6 
@SUBR 
@F6D4, A6 
@SUBR 
@F6D5,A6 
@SUBR 


@FORM10,A5 
@F101,A6 
@SUBR 
@F102,A6 
@SUBR 
@F103,A6 
@SUBR 


@FORM12A,A5 
Graal AG 
@SUBR 


“Mme “ee “Sa Se 


“se “se “Ne Se Me We Ne We We 


“te 


“Te “Se e Ne We Ne We We Ne We We 


“Me “Ne “Ne “Ne Ne Ne Ne 


f 
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LEA 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
Bok 


LEA 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


@IMOVEQ, A5 
@IMVQ1, A6 
@SUBR 


@IBSR, A5 
@IBSR1,A6 
@SUBR 
@IBSR2,A6 
@SUBR 


@ICC,A5 
@ICC1, A6 
@SUBR 


@IDBCC,A5 
@IDBCC1, A6 
@SUBR 


@SCC,A5 
@SCC1, A6 
@SUBR 


@IQUICK, AS 
@IQUICK1,A6 
@SUBR 
@IQUICK2, A6 
@SUBR 


@FORM6A, A5 
@F6A1,A6 
@SUBR 


@FORM11SL,A5 
@F11SL1, A6 
@SUBR 
@F11SL2, A6 
@SUBR 


@SCOMMON, A5 


“Te “Be “Re Ne Ne 


™e “te “oe “Ne Ne 


f 


“Te “ee “Ns “Ne Ne 


. 
f 


@SCOMMON1, A6; 


@SUBR 


@SCOMMON2, AG; 


@SUBR 


@SCOMMON3, a6; 


@SUBR 
@SCOMMON4, Gr 
@SUBR 


@SCOMMON5, AG; 


@SUBR 


f 


2/1) 


LEA 
Bor 


LEA 
LEA 
BSk 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
Bor 


LEA 
LEA 
BSR 


LEA 
LEA 
Bok 


LEA 
LEA 
Bok 


LEA 
LEA 
Bok 
LEA 
BSR 


LEA 
LEA 
Bok 
LEA 
Bok 
LEA 
Bok 
LEA 
BSR 
LEA 
BSR 


LEA 


@SCOMMONG6, A6; 


@SUBR 
@ISTOP,AS5 
@ISTOP1,A6 
@SUBR 


@IMVFUSP,A5 


@IMVFUSP1,A6; 


@SUBR 


@IMVTUSP,A5 


e 
¢ 


f 


° 
f 


f 


e 
¢ 


e 
¢ 


° 
f 


@IMVTUSP1,A6; 


@SUBR 


@FORMS5,A5 
Q@F51,A6 
@SUBR 


@FORM4,A5 
Q@F41,A6 
@SUBR 


@ILINK,A5 
@ILINK1, A6 
@SUBR 


@IMOVEMTR, A5 
@IMVMTR1,A6 
@SUBR 


@FORM1A, A5 
@Q@F1A1, A6 
@SUBR 
@F1A2, A6 
@SUBR 


@FORM1,A5 
@Q@F11,A6 
@SUBR 
@QF12,A6 
@SUBR 
@F13,A6 
@SUBR 
QF14,A6 
@SUBR 
@F15,A6 
@SUBR 


@FORM3,A5 


e 
¢ 


™e Be We We We 


we Me Be We Be We Be We We We We 


e 
f 


98 


LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


LEA 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 
LEA 
BSR 


LEA 


@QF31,A6 
@SUBR 
@F32,A6 
@SUBR 
@F33,A6 
@SUBR 


@IMOVEMFR, AS; 
@IMVMFR1,A6 


@SUBR 
@FORM11,A5 
@F111,A6 
@SUBR 


@IMVTSR, A5 


@IMVTSR1,A6 


@SUBR 


@IMVTCCR, AS 


"Me Ne Ne Neo We Re 


e 
r 


° 
v 


e 
d 


° 
fi 


e 
v 


e 
v 


@IMVTCCR1,A6; 


@SUBR 


@IMVFSR, AS 


@IMVFSR1,A6 


@SUBR 


@IMOVE,A5 
@IMOVE1, AG 
@SUBR 
@IMOVE2, A6 
@SUBR 
@IMOVE3, A6 
@SUBR 


@IMMED,A5 
@IMMED1,A6 
@SUBR 
@IMMED2, A6 
@SUBR 
@IMMED3, A6 
@SUBR 
@IMMED4, A6 
@SUBR 
@IMMEDS5, A6 
@SUBR 
@IMMED6, A6 
@SUBR 


@IMOVEP, AS 


° 
v 


Lf 


Te “We Ne Ne Neo Me We 


Me Ne Ne We We We Ne Wo We We We We We 


ye) 


@SUBR: MOVE.L A5,A3 


LEA @IMOVEP1,A6 ; 
BSR @SUBR Z 


LEA @ISETS,A5 
LEA @ISETS1,A6 
BSR @SUBR 
LEA @ISETS2,A6 
BSR @SUBR 
LEA @ISETS3,A6 
BSR @SUBR 
LEA @ISETS4,A6 
BSR @SUBR 


me Be Be Be We Bo We We We 


LEA @ISETD,A5 
LEA @ISETD1,A6 
BSR @SUBR 

LEA @ISETD2,A6 
BSR @SUBR 

LEA @ISETD3,A6 
BSR @SUBR 

LEA @ISETD4, A6 
BSR @SUBR 

JMP (AO) 


SUB.L A4,A3 
MOVE.W A3, (A6) 
RTS 


we “So Se Be Be Be Be Re Be We We We We We 


/* DISASSEMBLY PROGRAM BEGINS </f 

/*x CALLING SEQUENCE: 
DO,D1,D2 Contains the code to be Disassembled 
A4 = Value of Program Counter for the code 
A5 = Pointer to store data (BUFSIZE = 80 assumed) 
wok DECODE 
RETURN : 
A4 = Value of Program Counter for next instruction 
A5 = Pointer to line as Disassembled 
A6 = Pointer to End Of Line 
0123456789012345678901234567890123456789002345G7—" 
AAAAAA FDATA.DDDDDDDDDDDDDD FOC.... FOP..... 

* 

/ 

@PGM: NOP ;BASE ADDRESS THOS MODGEE 

/*  MOVEM REGISTERS TO EA 


Ae eee ae gos AKXAX KK EFFECTIVE ADDRESS 


100 


” 


mrM7788: 


IM7799: 


Ke 
LIMOVEMTR : 


i516: 
imseTrOP : 


IMMED : 


LIMOVEME'R : 


Cie.  Oaewn 2 ©: 


«oe e oe @ 


BSR 
MOVE .L 
AND .W 
CMP .W 
BEO.o 
MOVE .L 
MOVE .L 
BRA.5 
MOVE .L 
MOVE .L 
BSR 
MOVE .B 
ADD.L 
MOVE .W 
MOVE .W 
Bok 
BRA.S 


‘MOVEM 


BSR 
ADD.L 
MOVE .W 
BSR 

MOVE . 
MOVE . 
MOVE. 
BSR 

BRA 

MOVE. 
MOVE. 
MOVE. 
BSR 

BRA 

BSR 

ADD.L 
MOVE .B 
foR. Lb 

MOVE .W 
MOVE .W 
SR . 
AND. 
EEO . 
erp . 
BEQ. 
ADD. 


Et Et 


DW Ss 


Fnwwnas 


e ¢@ e 


BA 


oe @ ®@ @ @ 
ee eo ee @ # @ 
oe oe 8@® @ 


eeee ¢# @ 


@MOVEMS 
#0X0038,D6 
(AAD D6 
#0X0020,D6 
@IM7788 

oll ABS 
#0,D1 
@IM7799 
#-1,D6 

ilo Dal 
@MOVEMR 

th pees (EO ot 
#2,D3 
(A4),D4 
#OX1F4,D7 
@EA 

@CS16 


TO REGISTERS 
@MOVEMS 

: ape os) 
#OX7EC,D7 
@EA 

#’,’, (A6)+ 
#1,D6 

pa), Dl 
@MOVEMR 
@CS15 
244) we 
#°#!’ , (A6) + 
#'S’, (A6) + 
@PNT4HX 
@COMMON4 
@FORMSIZE 
£2, D3 

#’ #’ , (A6) + 
DO 

2 (A4),D0 
(4) al 
6.5 8)L 
#3,D1 
@IMMED65 
#1,D1 
@IMMED75 
JO) 
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WORD 
LONG 
REGISTER TO MEMORY 
MEMORY TO REGISTER 


, SIZE 


tf ° 


ao 
= iS 
ds 


e 
F e 


; 
; PREDECREMENT MODE 


;D6 = INCREMENTER (BIT POSITION) 
7-D1l = Bit fool ion 
;D6 = DECREMENTER (BIT POSITION) 
Diesel PCSITiIONn 


,;BUILD MASK WORD 
; STORE, COMMA 


v 


;CONTROL + PREDECREMENT 
; COMMON 


ei 
e Site 


,CONTROM ET FOS LINCREMENT 


;oTORE COMMA 
;D6 = BIT POSITION INCREMENTER 
jDite— sed POStT ION 


; COMMON 


; 

; IMMEDIATE 
;HEA 

; VALUE 


;ADD AND CMP # EOR OR _ SUB 
;SIZE = 4 
; IMMEDIATE 


*DOQ = EXTENSION WORD 


AB VOL) 


;WORD 


; . LONG SIZE = 6 


MOVE .5 2(A4),D0 ;DO = LONG EXTENSION WORD 


@IMMED45: BSR Q@HEX2DEC ; DECIMAL 
MOVE .B D5, (A6) + ;COMMA SEPARATOR 
MOVE (A4),D0 ; 
AND .W #0X003F,D0 : 
CMP .W #0X003C,D0 ;DESTINATION ADDRESS MODE 111100 "SE 
BNE.S @IMMEDS55 ;NOT FOUND 
MOVE .W (A4) ,DO ;"SR" ILLEGAL FOR 
AND .W #0X4000,D0 ;ADDI  SUBI  CMPI : 
BNE @FERROR ,0600 04 00 Oe O | 
MOVE .W (A4 eed 1. ; 
AND .W #0X00CO0,D1 ; 
CMP .W #0X0080,D1 ; 
BEQ @FERROR ;. LONG NOT ALLOWED 
MOVE .W (a4) , Dil ; | 
BTST.L #6,D1 ; 
BNE @STAT : 
MOVE .B #/°C’, (A6) + ;#, CCR FOR ANDI, EORI, wena 
MOVE .B #°C’, (AG) + : 
MOVE .B dR (AG) ct ; 
BRA.S Q@CS14 ; COMMON 
Q@STAT: MOVE .B #'°S’, (A6) + ;#,SR FOR ANDI, EORI, ORI 
MOVE .B #/R’, (A6) + ; 
Q@CS15: BRA.S @CS14 ; COMMON 
@IMMED55: BSR @EA : 
BRA.S @CS14 ; COMMON 
@IMMED65: MOVE.L DOD i :Dl = XXkxeoee eee 
LSR.W #8,D1 ;D1 = OOD0Q00000XXXXXXXX 
BEQ.S @IMMED75 ; 
MOVE.L DO Dal ; 
ASR.W ot a Dil ; 
ADD .W lee Dall ;CHECK FOR NEGATIVE 
BNE @FERROR ; 
IMMBD75: EXT.L DO ; \ 
BRA @IMMED45 ; 
foe BIT 5432109876543210 
.RRRMMM.... DESTINATION REGISTER MODE 
> aire. 2 MMMRRR SOURCE MODE REGISTER 
OOOd se. 2 eee BYTE 
OIE as 4. a ee ees Sa . WORD 7 
0101.0 .:.2. 28 eens . LONG 
IF BYTE SIZE, DESTINATION ADDRESS DIRECT NOT ALLOWED. 
x / 
@IMOVE: BRA @IMOVEAIL1 : 
@ILINKE: BSR.S @FORMREGA ; . 
MOVE .B D5, (A6) + ;COMMA SEPARATOR 
MOVE .B ue. (AG) + : | 
MOVE .W 2(A4) ,D0O ; 
EXT 21 DO ‘ 
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@FORM] : 
/* 
@Q@FORMIA: 
@CS14: 
QFORM3 : 


@FORM4 : 


@FORMS: 


/* 


x / 
@FORMO6A: 


/* 


4 
@FORMED : 


@FORMREGA: 
@FORMREGS: 


4FORMREGD : 


(k 


i / 


BSR @HEX2DEC 
BRA @COMMON4 
BSR @FORMSIZE 
NBCD TAS 
BSR @EA 
BRA @CS13 
BSR.S @FORMREGD 
BRA.S @CS13 
MOVE.B #(' #’), (AO) + 
MOVE .W (A4) ,DO 
AND.L #OXOF,DO 
BSR @HEX2DEC 
BRA.S @CS13 
BSR.S @FORMREGA 
BRA.S @CS13 
5432109876543210 
MRRR: .. . see 
Oe ae XXXXXX 
MOVE.W #OX7E4,D7 
BSR.S @EA10 
MOVE .B D5, (A6) + 
MOVE .W (A4),D4 
ROL.W a7 a 
BSR.S @FORMREGA 
BRA.S Q@CS13 
BIT 5432109876543210 
DDD...... Sie 
MME ols g as XXX OX 
MOVE.W #OXFFD,D7 
BSR.S @EA10 
MOVE .B D5, (A6) + 
MOVE .W (A4),D4 
ROL.W #7,D4 
BSR.S @FORMREGD 
BRA.S @CS13 
MOVE .B #°A, (AG) + 
AND.B #0X07,D4 
OR.B + (' 0" ) abd 
MOVE .B D4, (A6) + 
RTS 
MOVE .B #('D’), (A6) + 
BRA @FORMREGS 
BIT 5432109876543210 
DDDEew. tae DDD 
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;DECIMAL DISPLACEMENT 
;CLR NEG NEGA NOT TST 


* 

iy 

;DATA ALTERABLE ONLY 
; COMMON 

;EXT SWAP 

; COMMON 

; TRAP 

; DECIMAL 

; COMMON 


; UNLNK 
; COMMON 


ADDRESS REGISTER 
EFFECTIVE ADDRESS 


;CONTROL ADDRESSING 


; COMMA SEPARATOR 


v 


° 
A 


; COMMON 


DATA REGISTER 
EFFECTIVE ADDRESS 


*;CHK DIVS DIVU MULS MULU DATA ,ADRESG 


; 
;COMMA SEPARATOR 


; COMMON 
;FORMAT AG@ 
; 

; 

;FORMAT D@ 


¢ 


DATA REGISTERS 


@FORM7 : 


/* 


lass 
Q@FORMB: 


@FORM815: 


Q@CS13: 


/* 


a 
QFORMO: 


@EA1O: 


/* 


my 
@FORM10EX: 


ROL.W #7,D4 

BSR @FORMREGD 

MOVE .B D5, (A6) + 

MOVE.W (A4) ,D4 

BSR @FORMREGD 

BRA.S @CS13 

BIT 5432109876543210 
_ABL . eee AAA 

ROL.W Ae! 

BSR Q@FORMREGA 

MOVE.B #7,’ , (Ag 

MOVE .W (A4),D4 

BSR Q@FORMREGA 

BRA @CS12 

BIT 5432109876543210 
DDD... 

aaa wo a ee AAA 

ROL.W ti D4 

BSR @FORMREGD 

BRA Q@FORM815 

BRA @EA 

5432109876543210 

es oo ale AAAAAA 

Se ies MMM ae 
~RRR3 eee 

ss os OLA eee 

PE 62s 11 1a: 

BE noses O10 CO aeeeeeu.. 

i ee 0 .. eee 

ee 1:3. ee 

Os. bls, See OO ae ee 

ib o's Oilvayas ee a 

Ninos: 10 =e 


ADD <EA>,A@ CMP <EA>,A@ 


MOVE .W #OXFFF,D7 
MOVE. L D4, DO 

AND .W #0X01C0,D0 
BEQ.S @FORM103 
CMP .W + 0x0 1e0- DO 
BEQO.S @FORM10E3 
CMP .W +OxR COCO DO 
BNE.S @FORMLOE6 


;EXG 


; 
; COMMA SEPARATOR 


f 


; COMMON 


ADDRESS REGISTERS 
;EXG 


; 
; COMMA SEPARATOR 


; COMMON 


DATA REGISTER 
ADDRESS REGISTER 


;EXG 
;DATA REGISTER 


e 
f 


EFFECTIVE ADDRESS 
OP -MODE 
D-REGISTER 
WORD EA, AG 
LONG EA, A@ 
EA, D@ BYTE 
NOT ALLOWED) 
EA, D@ 

D@, EA 

BYTE 

WORD 

LONG 


(ADDRESS 


SUB <EA>,A@ 


/ADD ‘%@HE 


* *#® e e# # @ 
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REGISTER DIREC 


SUB, ALL MODES ALLOWED 


QFORMI1OE3: 


QFORMI1OE4: 


QFORMIOES6: 


[x 


x / 
@FORMI0O: 


aFORM103: 
¢4FORM104: 


4FORM105: 


/* 


meS12: 
IFORM11: 


MOVE .B fg eee) + 
MOVE .B #°W!, (AS) + 
BRA.S @FORM10E4 
MOVE .B #F f°) (A5) + 
MOVE .B #°L!, (A5) + 
BSR @EA10 
MOVE .B D5, (A6) + 
MOVE .W (A4),D4 
ROL.W #7,D4 
BSR @FORMREGA 
BRA.S @CS12 
BTST.B 0, (roe) 
BNE.S @FORM105 
BRA.S @FORM104 
543210987 6843210 
rs So AAAAAA 
eae MMM...... 
BORER. «6. fs es 
a 010) carer 
ee. alone sis <a 
5 oe TOR 23. on 
BTST.B #0, (A4) 
BNE.S @FORM105 
MOVE .W #OXFFD, D7 
BSR @FORMSIZE 
BSR @EA10 
MOVE .B Dope 6) + 
MOVE .B (A4),D4 
LSR.B #1,D4 
BSR @FORMREGD 
BRA.S @CS12 
BSR @FORMSIZE 
MOVE .B (A4),D4 
LSR.B #1,D4 
BSR @FORMREGD 
MOVE .B D5, (A6) + 
MOVE .W (A4),D4 
MOVE .W #OX1FD,D7 
PEA (JMP JSR) 
BSR @EA10 
BRA @ COMMON 
MOVE .W #O0X7E4,D7 
BSR @EA10 
BRA.S @CS12 
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STORE PERIOD 


™e “Yo Be Re Be 


;<EA>, AQ 
; COMMON 
ge re ly ee D@, <EA> 
Soe ene Dien 5. «Ge eats <EA>, D@ 


EFFECTIVE ADDRESS 
OP -MODE 
D-REGISTER 

EA,D@ 

D@,EA 

BYTE 

WORD 

LONG 


;AND EOR OR 


; 
;DATA ADDRESSING 


;<EA>,D@ 
; COMMA SEPARATOR 


° 
f 


; COMMON 
;D@, <EA> 


f 


;COMMA SEPARATOR 
; 


;ALTERABLE MEMORY ADDRESSING 


sia 


; CONTROL ADDERSSING 


; COMMON 


Fis: 


JMP JSR 


@FORM11SL:MOVE .L 


@FORM112: 


@FORM114: 


/* 


x/ 
@FORM12: 


@FORM125: 


Hoss 


AND .W 

CMP .W 

BNE.S 

MOVE .B 
MOVE Ee 
CMP .W 

BNEZ>S 

MOVE. 
MOVE .B 
BRA 


D4,D0 
#OX3F,D0 
#0X38,D0 
@FORM112 

* Mee pA) + 
#'°S’, (AS) + 
#0X39,D0 
@FORM114 

: ere Neo ae 
#/L’, (AS) + 
@FORM11 


Bre 5432109e8 654320 


eee e@ *# @ 


eo e@ @ @ @ @ @ 


+e Cae 


eee @ 8 @ 
oe e# @ oe @ 


@FORMSIZE 
#3,D4 
@FORM125 
@FORMREGD 
D5, (A6) + 
(A4) ,D4 
#1,D4 
@FORMREGD 
Ges dnl 

#/ = t (A6) a 
#’ (’, (A6) + 
@FORMREGA 
#O0X282D2C29,D0 
@SCHR 
(A4),D4 
#1,D4 
@FORMREGA 
tia), (AO) 
@CS11 


Big 543210967 o545200 


eee @ @ @ @ 
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ss 


i Ee a oe 


"Me Me Ne Be Be We Ro Be We We We 


DATA DESTINATION REGISTER 

ADDRESS REGISTER 

BYTE 

WORD 

LONG | 
DATA REGISTER TO DATA REGISTER | 
MEMORY TO MEMORY 

DATA SOURCE REGISTER 

ADDRESS SOURCE REGISTER 


;ABCD ADDX SBCD “SUR 


° 
f 


;D@,D@ FORMAT SOURCE 
; COMMA SEPARATOR 
;FORMAT DESTINATION 
; COMMON 


f 


1 


Me Seo Bo Bo Be No Wo Yo We 


ADDRESS REGISTER 
Ba or 

WORD 

MLONG 

MEMORY TO MEMORY 


DESTINATION 


y/ 


@FORM12A: 


@CS11: 
@IQUICK: 
/x 


7 


Q@IMOVEQ: 


@SCHR: 


/* 
@IMVFSR: 


/* 


@IMVFUSP : 


I 
@IMVTSR: 


aIMVT44: 


5: ence LXXX ADDRESS SOURCE REGISTER 


BSR @FORMSIZE ; CMPM 
MOVE .B #1", (AG) + 2 
BSR @FORMREGA ; AG 
MOVE .L #O0X282C2B29,D0 all +)! 
Bok. S @SCHR ;STORE CHARS 
MOVE .B (A4),D4 ; 
LSR.B aL Ie! : 
BSR @FORMREGA ; AG 
MOVE .B #°)", (A6) + s 
MOVE .B tet 7 eS ) ot ; 
BRA @COMMON ; 
BRA @IQUICKA ;ADDQ SUBQ 
BIT 5432109876543210 
Oneill. . O ..< 4A FIXED 
oR ie: <: gee eee DATA REGISTER 
. ee ae DDDDDDDD SIGN EXTENDED DATA 
MOVE .B #7 HT) (AG) + ; IMMEDIATE 
MOVE .W (A4),D0O s 
Exar .wW DO ; 
Pear. DO is 
BSR @HEXZDEC ; DECIMAL 
MOVE .B D5, (A6) + ;COMMA SEPARATOR 
ROL.W #7,D4 ; 
BSR @FORMREGD : 
BRA @CS11 ; COMMON 
MOVE .B DO, (A6) + ;OUTPUT STRING 
LSR.L #8,D0 ; 
BNE @SCHR ;MORE TO OUTPUT 
RES : 
MOVE FROM STATUS REGISTER (SR) xe 
MOVE .L Hee 5253) , D0 SERS” Ske 
BSR @SCHR ; 
BSR @EA ;DATA ALTERABLE 
BRA @a@CS1ll1 ; COMMON 
MOVE FROM USP (USER STACK POINTER) * / 
MOVE .L fOr C 505355) ,D0 SUSE ls PSU 
BSR @SCHR ; 
BSR @FORMREGA : 
BRA @CS11 ; COMMON 
MOVE TO SR (STATUS REGISTER) */ 
MOVE .W #OXFFD,D7 ;DATA ADDRESSING 
BSR @EA 8 
MOVE .L PON oo SZe) > DO *SROURS s 
BSR @SCHR c 
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/* 
@IMVTUSP : 


Vhs: 


@IMVTCCR: 


/* 


yi 
@IMOVEP : 


@IMOVEPI11: 


@CS20: 
@IMOVEP35: 


@IMOVEP 66: 


BRA @CS11 ; COMMON 
MOVE TO USP (USER STAG POINTER * / 
BSR @FORMREGA 
MOVE .L #(OXS 0535520" DO ;,USP "PSU 
BRA @IMVT44 b 
MOVE TO CCR (CONDETION CODEVREGIS TEES <7 
MOVE .W #OXFED, D7 ;DATA ADDRESSING 
BSR @EA ; 
MOVE .L #(0X5243432C),D0 ;,CCR "RCC," 
BRA @IMVT44 
BIT 5432109876543210 
C000. | ...00I ~. FIXED 
p22) ee eee DATA REGISTER 
Per Ores Go % MEMORY TO REGISTER 
rerermrere es, 2) esc REGISTER TO MEMORY 
gob a Wl 6 SO ee WORD 
ee are 8 ee, LONG 
RUBS. 2. Je a ene 9.9.4 ADDRESS REGISTER 
MOVE.B #/ 0") (AS) + ;DG@, # (AG) 
MOVE .W # (OX4C57),D0 ) ne 
BTST #6,D4 : 
BE On > @IMOVEP11 PUSH OWS 
LSR.W #8,D0 ,USE “ae 
MOVE .B DO, (A5) + ; LENGTH 
MOVE .B (A4),D4 ; 
LSR.B #1,D4 : 
BTST.B #7,1(A4) ; 
BEO@.sS @IMOVEP 35 ; 
BSR @FORMREGD ;D@, OXHHHH (A@) 
MOVE .B DS, (AG) 4 ;COMMA SEPARATOR 
MOVE .W (A4),D4 ; 
BSR.sS @IMOVEP 66 ‘ 
BRA @COMMON4 : 
Boks @IMOVEP 66 ; OXHHHH (A@) , D@ 
MOVE .B D5, (A6) + ;COMMA SEPARATOR 
MOVE .B (A4),D4 ; 
LSR.B #1,D4 ; 
BSR @FORMREGD : 
BRA @CS20 ; COMMON4 
MOVE .B #/'S’, (A6)+ ;FORMAT DISPLACEMENT 
MOVE .W 2(A4),D0 ; 
BSR @PNT4HX : 
MOVE .B ei erage eo las E 
MOVE .W (A4),D4 ; 
BSR @FORMREGA F 
MOVE .B 2 RAO NGS ne 5 
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@SCOMMON : 


Q@SCC: 


@IDBCC: 


/* 


x / 
eecc: 
@IBSR: 


meec35: 


@ecCcss: 


/* 
4ISETD: 


¢4ISETD12: 


2CS18: 


/* 


RTS 


: : 
,NOP REESE Pertbe RTM RIS TRAPV 


BRA @COMMON 

BSR @ICCCC ;GET REST OF OP-CODE 
BSR @EA ;DATA ALTERABLE 

BRA @SCOMMON : 

MOVE .W (A4),D4 ;DB-- 

BSR @FORMREGD : 

MOVE .B D5, (A6) + ;COMMA SEPARATOR 
MOVE .B ars’ (R6)+ ;HEX FIELD TO FOLLOW 
BSR Grecec : 

BRA.S @ICC55 ; 


BIT 5432109876543210 


08 0) 4 ree FIXED 
CeECC ... 4 eee CONDITION 
4 ee DDDDDDDO DISPLACEMENT 
. ss eae ih ERROR (ODD BOUNDRY DISPLACEMENT) 
BSR G@1CECEe ;B-- 
MOVE .B #'°S’, (A6) + ;BSR BRA 
TST.B D4 ; 
BEQ.S Eee s5 ;16 BIT DISPLACEMENT 
MOVE .B + eee) cE ; 
MOVE .B #'°S’, (A5) + ; 
EXT .W D4 ;8 BIT DISPLACEMENT 
Een, 1 D4 ;SIGN-EXTENDED DISPLACEMENT 
ADD .L INIA DYE ;+ PROGRAM COUNTER 
ADD.L #2,D4 ;+ TWO 
MOVE .L B47 bo ; 
ASR.L #1,D4 ; 
BCS @FERROR ;ODD BOUNDRY DISPLACEMENT 
BSR @PNT6HX ; 
BRA @ SCOMMON 5 
ADD.L #2,D3 ;SIZE 
MOVE .W 2(A4) ,D4 ; 
MOVE .B cs Wee sy) ar ; 
MOVE .B aw L, (A5) + ;.L FOR 16 BIT DISPLACEMENT 
BRA CUS Gers. : 


BCHG BCLR BSET BTST x / 

ROL.W #7,D4 ;DYNAMIC BIT 

BSR @FORMREGD ;DATA REGISTER 
MOVE .B D5, (A6) + ;COMMA SEPARATOR 
MOVE .W (A4),D4 ; 

BSR @EA ;DATA ALTERABLE 
BRA @ SCOMMON 


BeHG BCLR BSET BTST 
ol WORD FO 66 od C2. ©.6.8,6 BA DATA ALTERABLE ONLY 
ZzND WORD 0000 0000 OOOY YYYY BIT NUMBER 
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Bid 
Q@ISETS: 


/* 


* 
@ISHIFT: 


GCISHEE T Ese 


@ISHIFT23: 


@ISHIFT33: 
@ISHIFT44: 


@CS17: 
@ISHIFTM1: 


PADD) AE +273 
MOVE .B igi (AG) + 
CLR LL DO 
MOVE. .W 2 (A4) ,DO 
MOVE .L BO, Dil 
LSR.L : Js aa 
BNE @FERROR 
BSR Q@HEX2DEC 
BRA @ISETD12 
BIT 5432109876543210 
0.0, Gran... ae 
A. Ours... Sere, 
ee ae ie. ae 
ee 007 ee 
eens Otaize 
eee. (30 paneer 
ees) eae 
0 11AAAAAA 
Ss 4 ee Oia awee 
Ee ie eee 
MOVE.W # (OX4C52) ,DO 
BTST #8,D4 
BEQ.S @ISHIFT13 
LSR.W #8,D0 
MOVE .B DO, (A5) + 
MOVE .W (A4) ,DO 
AND .W #0X00C0,DO 
CMP .W #0X00C0O,DO 
BEQ.S @ISHIFTM1 
BSR @FORMSIZE 
ROL.W +7 D4 
BTST i DA 
BNE.S @ISHIFT33 
AND .B #0X07,D4 
BNE.S Q@ISHIFT23 
OR.B #0X08,D4 
OR.B + ae 14 
MOVE .B Prete! | (AG) + 
MOVE .B D4, (A6) + 
BRA.S @ISHIFT44 
BSR Q@FORMREGD 
MOVE .B D5, (A6) + 
MOVE .W (A4),D4 
BSR @FORMREGD 
BRA @CS18 
MOVE .B $M!) (A5)+ 
MOVE .B #/°W’, (A5) + 
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;STATIC BIT, SIZE 
; IMMEDIATE 


;GET BIT POSITION FROM ZNDeWoEe 


v 


° 
f 


e 
; DECIMAL 


f 


IMMEDIATE COUNT/REGISTER 
RIGHD shir. 

BEE Ts SHE 

Birs 

WORD 

LONG 

WORD (MEMORY) 

EFFECTIVE ADDRESS 

SHIFT IMMEDIATE COUNT 


SHIFT COUNT (MODULO 64) IN DATA REG 


;'’DLR’ AS- LS- RO- ROX= 
*DIRECTION Ba 
; RIGHT 

; LEFT 


; DIRECTION = backs 


f 


e 
f 


;MEMORY SHIFT 


f 


;I/R BIT 
;COUNT IN REGISTER 
; IMMEDIATE COUNT 


;CHANGE ZERO TO EIGHT 


Me Ne Ne We % 


;COMMA SEPARATOR 


v 


; COMMON 
;PERIOD 
: «WORD 


mecCCCC : 


mee CCC 9: 


IBRTBL: 


/ 


JIMOVEA1: 


BTST pale dL. 1B)! 
BNE @FERROR 
MOVE .W #OX1FC,D7 
BSR @EA 
BRA @CS17 
MOVE. L #OXOF,DO 
AND.B (Ad) Do 
IG/Sity Me #1,D0 
MOVE .L AO,-(SP) 
LEA @BRTBL, AO 
END OYS 1e DO, AO 
MOVE .B CAO) ao 
Siu Ls An 
Bol. L de 
MOVE .B 1(A0),D1 
MOVE .L (SP)+,A0 
MOVE .W @BRTBL(PC,DO.W) ,D1l 
MOVE .B Diy font 
LSR.W #8,D1 
CMP .B ye 5), 
BEQ.S @ICCCCYI 
MOVE .B D1, (A5) + 
RTS 
DC.B tree 
DC.B ‘A serge i pe aod ‘A 
DC.B ae ses cd eo 
DC.B ‘on eaeley elie, 
DC.B de ede Se pee Cl 
DC.B Sty” pee, Sf 
DC.B ee Ne PRON eit By” 
DC.B On ay pea eee 
DC.B eye Een de Od 
DC.B BS © eh NEF 2 Ve GS! 
DC.B 4 es 2 od Soar Eee 
DC .B Oa ae ;’ Mae 1’ 
DC.B Cos iG! ;  Gaae &’ 
DC.B Saas ed pea’ 
DC.B ee (G! SoG 
DC.B OS DLS a Oe Pe ieee! Fe! 
Ber 5432109876543210 
RRRMMM...... 
eae MMMRRR 


Se Bye SIZE, ADDRESS DIRECT 


MOVE .W 
BSR 

MOVE .B 
MOVE .W 


#OXFFF,D7 
@EA 

D5, (A6) + 
(A4),D4 
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Ponte MUStesem ZERO 
;MEMORY ALTERABLE ADDRESSING 


; COMMON 

; APPEND CONDITION CODE 1 
DG = CEG ui 
°De CEGr2Z 


td 


~ 4% 
> 


eo “se Me We We We Bo 


f 


7;GET BRANCH MNEMONIC 

; (REVERSED) FROM THE TABLE 
;AND ADD THE NONBLANK PORTION 
p.O THE BUBB. 


f 
e 
f 
e 
f 


BRA ACCEPTED 


Tike 7 


me “We Ne We MWe We We We We We We We We We We We 


DESTINATION REGISTER MODE 
SOURCE MODE REGISTER 


NOT ALLOWED AS SOURCE 
;ALL MODES 


;COMMA SEPARATOR 
ERO a cies 54 ot Sd KAI KAT [esa aoa 


/* 


@IMOVE19: 


/* 
@IQUICKA: 


@EOUTERZ1: 


@IQUICK31: 
QCS19: 


/* 


* / 
Q@FORMSIZE: 


@FORM91: 


7 ieee RRRMMM ee 
DO RREe eee MMM 
foe MMPs . ome RRR 
;eumetee. MMMR RRGae a 
peer oy oe. ee MMMRRR 


IF .BYTE DESTINATION A@ NOT ALLOWED */ 


LSR.W #1,D4 
LSR.B #5,D4 

ROR. W #8,D4 
LSL.B #5,D4 
LSR.W #5,D4 

MOVE .W #OX1FF,D7 
MOVE .B GREY BIC 
CMP .B #0X01,D0 
BNE.S @IMOVE1 9 
MOVE .W #OX1FD,D7 
BSR @EA 

BRA.S @CS19 

IF BYTE, 

BSR.S @FORMSIZE 
MOVE .B io’ , (eo) 4 
ROL.W #7,D4 

AND .B io 4 
BNE.S @IQUICK21 
OR.B #8,D4 

OR.B 04 
MOVE .B D4, (A6) + 
MOVE .B D5, (A6) + 
MOVE .W (A4) ,D4 
MOVE .W (A4),DO 
AND .W #0X00CO0, D0 
BEQ.S @IQUICK31 
MOVE .W #OX1FF,D7 
BSR @EA 

BRA @COMMON 
BIT 5432109876543210 
2 ae 016 eee 

So 4 ee Ca Rina ete 
Mes ks LOteese 
Ms. 35 1 eee 
MOVE .W (A4),D2 
MOVE .B #’ .’, (A5)+ 
LSR.W #6,D2 

AND .W #0X03,D2 
BNE.S @FORM91 
MOVE .B #/°B’, (A5) + 
BRA.S @FORM95 
MOVE.B #/’ WwW’ ,DO 
CMP .B #1,D2 
BEQ.S @FORM93 
MOVE .B +L De 
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;DATA ALTERABLE + A@ 


f 


;NOT BYTE Size 
;DATA ALTERABLE 


; COMMON 


ADDRESS REGISTER DIRECT NOT ALLOWED */ 


;ADDQ SUBQ 


~ ™so “Me “Ne Me 


*-MAKE ZERO INTO EIGHT 
;-MAKE ASCII 


~ =.» 


>COMMA SEPARATOR 


“Meo “Ne Ne 


;DATA ALTERABLE 
; ALTERABLE ADDRESSING 


f 


v 


BYTE 
WORD 
LONG 
ERROR 


; STORE PEE TCE 


e 
f 


jp OLORE eae 


™eo Be “Me Me NX 


@FORM93: 
@FORM9S5: 
@EAOOO: 


QGEAOQO1: 


@EAOI1O: 


@EAOI1I1: 


Q@EFAOLIRTS: 
QEA1O00: 


QaFE10: 


[x 


CMErB 
BNE.S 
MOVE .B 
RTS 
BSR 
Bsr 
BEOQeS 
RTS 
BSR 
Biot 
BEQ.S 
Rts 
MOVE .B 
BSR 
MOVE .B 
Bisr 
BE Ores 
RTS 
MOVE .B 
BSR 
MOVE .B 
MOVE .B 
Bio T 
BEQ.S 
RTS 
MOVE .B 
MOVE. B 
BSR 
MOVE .B 
BIST 
BNE 
BRA 


A4 


D4 
D‘/ 


O 
WJ 
lot # ol 


MOVE .L 
LSR. 


BEQ 
cme .B 
BEQ 
=P .B 
BEQ 
eMP .B 
BEQ 
eMP .B 
BEQ 


pw IO) 
@FE10 
DOA) + 


@FORMREGD 
#0,D7 
@FE10 


@FORMREGA 
#1,D7 
@FE10 


# (Go) + 
@FORMREGA 
#’)’, (A6) + 
$2,D7 
@FE1O 


feo Gees (SOE 
@FORMREGA 
we )! , (A6)e+ 
#'+/, (A6) + 
#3,D7 
@FE10 


#! =", (A6) + 
#' (’, (A6) + 
@FORMREGA 
#')’, (A6)+ 
#4,D7 
@EAO11IRTS 
@FERROR 


POINTER TO FIRST WORD 
CrrsEd TO EXTENSION 
VALUE TO PROCESS 
MODES ALLOWED MASK 


D4,D0 
#3,D0 
#0X7,D0 
@EAOOO 
#1,D0 
@EAOOL 
#2,D0 
@EA010 
28, DIC 
@EAOI11 
#4,D0 
@EA100 
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; 
; FERROR 


: STORE ne OR WU a 

; 

; 

; 

; FERROR 

? 

? 

; 

; FERROR THIS MODE NOT ALLOWED 
, 

7; FERROR THIS MODE NOT ALLOWED 
; THIS MODE NOT ALLOWED 


> F ERROR 
f 
td 
a 


*;THIS MODE NOT ALLOWED 


"Me Ss Ns Be Meo Wo Ws "Me “Se Sse Me We 


Wiss 
/* 


my, 


@EA1105: 
@EA1107: 


@EA1109: 


Crib. B 
BES 
Cre. B 
BEQ 


#5,D0 
@EA101 
re, DO 
@EAI111 


EXTENSION WORD 
BIT 5432109876543210 


MOVE.B 


«eeeee ¢# @ 


oe @ @ @ @ @ @ 


#6,D7 

@QFE10 
0(A4,D3),D1 
#4,D1 

#4,D1 

i R4 DS) , D1 
#0X0700,D1 
@FE10 
0(A4,D3),D0 
#4,D0 

#4,D0 

1 (SIDS Yee 
DO 

DO 

@HEX2DEC 

#’ (7, (A6) + 
@FORMREGA 

6 ere 7 NS) ee 
(R45 D3), D4 
#4,D4 
@EA1105 
@FORMREGA 
@EA1107 
@FORMREGD 
#° 2.7, (A6)+ 
Ona, D3) , D4 
#4,D4 

#4,D4 

mea, DS), D4 
a DO 
#id,D4 
@QEA1109 
fr, DO 

DO, (A6) + 
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“Me “Neo No Se 


wr 


DATA REGISTER 

ADDRESS REGISTER 

REGISTER 

SIGN EXT., LOW ORDER INT. IN INDEX 
LONG VALUE IN INDEX REGISTER 


DISPLACEMENT INTEGER 
ADDRESS REGISTER INDIRECT WITH INDE? 


/P ERROR THIS MODE NOT ALLOWED 


f 


™eo “Se “eo Ne 


7F ERROR BITS 10-8 MUST BEVZEEe 
;DO = DISPLACEMENT 


;XX (AG, X@. 
»Dd = RG 





MAIO: 


EFA111: 


EFA1112: 


BAl113: 


MOVE .B 
ADD.L 
RTS 


#’)', (A6) + 
#2, D9 


ADDRESS REGISTER INDIRECT WITH DISPLACEMENT */ 


Brsg 
bEOn 
MOVE .B 
bol. L 
BSL. L 
MOVE .B 
EXT.L 
BSR 
ADD.L 
BRA 


e000 
aE 
aevO10 
iLO 11 
tO 0 


AND .W 
BNE.S 
BEST 
Bro. S 
movi; .B 
fol. L 
iol. L 
MOVE .B 
ee. Lb 
MOVE .B 
BSR 
ADD.L 
Eis 
ceMP .B 
BNE .S 
Bao T 
BEO.S 
MOVE .B 
MOVE .L 
BSR 


meemMOVE, .B 
aemMOVE .B 


ADD.L 
Ras 
@iP .B 
BNE .S 
Be T 
ENE .S 


#5,D7 

@FE11 
0(A4,D3),D0 
#4,D0 

#4,D0 

1 (4a, DO 
DO 

@HEX2DEC 
#2, D3 
@EA010 


+7 a 
@EA1112 

a9, DF 

@FE11 

0 (A4,D3),D0 
#4,D0 

#4,D0 
(a4, D3 DO 
DO 

#'S', (A6) + 
@PNT8HX 
#2,D3 


#1,D4 
@EA1113 
#8,D7 
@FE11 
oe meo) + 
0(A4,D3),D0 
@PNT8HX 
ee (AG) 
#/L’, (A6) + 
#4,D3 


#2,D4 
@EFA1114 
#9,D7 
@EFA1113A 
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EOS DIS (A@) 
;FERROR THIS MODE NOT ALLOWED 


f 


™e “*e Be 


f 


; DECIMAL 
SSA 


f 


ABSOLUTE SHORT 

ABSOLUTE LONG 

PROGRAM COUNTER WITH DISPLACEMENT 
PROGRAM COUNTER WITH INDEX 
IMMEDIATE OR STATUS REG 


“eo “ee We 


;FERROR THIS MODE NOT ALLOWED 
, LO0.0 ABSOLUTE SHORT 


e 
f 


"se. “Be “ee ™e 


;SIGN EXTENDED VALUE ieee 
BSwb yah eZ 


’ 
’ 
f 
;FERROR THIS MODE NOT ALLOWED 


-HEX 
7111001 ABSOLUTE LONG 


;FORCE LONG @FORMAT 1,3 */ 
,IE Filer * / 


f 


™e Te Me Ne Ne 


@FE11: 


@EA1113A: 


@EA1114: 


/* 
/* 


Ay 


BRA 
MOVE .B 
hoi. L 
Eek. L 
MOVE .B 
ID) ae 
ADD .L 
ADD .L 
MOVE .B 
BSR 
MOVE .L 
BSR 
ADD.L 
RLS 
CMeE..B 
BNE 


@FERROR 
Ona DS), DO 
#4,D0 

#4,D0 
PCNA DS DiC 
DO 

ne, DO 

#2,D0 
Seo oo EG) oe 
@PNT8HX 

# (0X29435028) ,DO 
@SCHR 

#2,D3 


+2, DA 


@EA1115 


PROGRAM COUNTER WITH INDEX 


5432109876543200 

OR: . ee ee 

| PP oe 

MX s,s) 4 eee 
Bee a: 0 6-5) ce 

..IN INDEX REGISTER 

9 10. ee 

faire 000. saaeeee 

oe ae KX 
BTST ell) A By 
BEQ @FE11 
MOVE .B On aApeba i Dal 
LSL.L #4,D1 

Sobel #4,D1 
MOVE .B I Vac OSs el 
AND .W #0X0700,D1 
BNE @FE11 
MOVE .B ea Ss) DO 
EXT.W DO 
EXT.L DO 
Ae 1, INE NEM 
ADD .L +2) DO 
MOVE .B ee, CO) ct 
BSR @PNT8HX 
MOVE .L #(OX%2C4 35028)DO 
BSR @SCHR 
MOVE .B 0(A4,D3) ,D4 
LSL.L #4,D4 

LSL.L #4,D4 
MOVE .B (Aa) D3), D4 
ROL.W #4,D4 
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*THIS MODE NOT ALLOWED 
7111010 PC+DISPLACEMENT DESTINAT IGS 


° 
i 


e “ee “oe “oe Be 


;HEX rs. i bee 
; DESTINATION 

7 APC) ) CUS 

7; STORE WORD 

; SIZE 

; | 


e 
A 





DESTINATION (PC, RG. X) x / 

SECOND WORD 

DATA REGISTER 

ADDRESS REGISTER | 

REGISTER | 

SIGN-EXTENDED, LOW ORDER WORD INTEG 
I 

LONG VALUE IN INDEX REGISTER 


DISPLACEMENT INTEGER 


; FERROR THIS MODE NOT ASLLOWED 


f 


™e “ee “*e “eo 


;FERROR BITS 10-8 MUST BE ZEmEe@ 


Palibal eye. DESTINATION (PC, R@.X) 

HEX "Ss" es 
»;DESTINATION 1s 

, 7) CEA 


;DES tee : 
, | 
' : 


f 


IEAF25: 
IEAF 27: 


EAF35: 


= 


/ 


mAlLI115: 


Bist 
BEQ.S 
BSR 
BRA.S 
BSR 
MOVE.B 
MOVE .B 
oi, L 
LSL.L 
MOVE .B 
MOVE .W 
Biot 
BE®.S 
LSR.W 
MOVE .B 
MOVE .B 
ADD .L 
RTS 


BT 


* e« ¢ @¢ @ @# @ @ 


ove. 6 
BNE 
Best 
BEQ 
MOVE .B 
MOVE .B 
eMP.B 
BEO.S 
MOVE .B 
Boi. L 
LSL.L 
MOVE .B 
chr. B 
BNE.S 


#3,D4 
@EAF25 
@FORMREGA 
@EAF27 
@FORMREGD 
#' 7, (A6) + 
OMA ps D4 
#4,D4 

#4,D4 
fA) bd 
PLOX4CS7 yee 
+1 D4 
@EAF35 
#8,D0 

DO, (A6) + 
#’)’, (A6)+ 
#2,D3 


2432109876543210 


LiLo 


#4,D4 

@QFE11 
#11,D7 
@FE11 

#' #! , (A6) + 
-1(A5),D1 
cand DAL 
@EA11155 
0(A4,D3),D0 
#4,D0 

#4,D0 

1, (a) DIS eke 
eB’ , Di 
@FA11153 


BYTE SIZE, DATA ALLOWED 
0000 0000 XXXX XXXX 


J gli 


MOVE .L 
LSR.W 

BEQ.S 

MOVE .L 
ASR.W 

ADD .W 

BNE 


i) er 


DO) sip 
#8,D1 
@EA11153 
Diop ba: 
#7,D1 
#1,D1 
@FE11 
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™e “We Be We 


;DES (PC, R@ 
‘DESTEC, RG 


v 


‘LW’ 


“Me “We “We We Wo We We 


;DES (PC, R@.X 
SIS CS. Ia 52) 


¢ 


e 
f 


FIRST WORD #<IMMEDIATE> 


7 OLX 


;FERROR THIS MODE NOT ALLOWED 
; [IMMEDIATE 


; LONG 
f 


; . WORD 


Me “Me “We Be We We 


; FERROR 


@FA11153: 


@EA11155: 


@MOVEMS: 


@MOVEMS2 : 


7x 
@MOVEMR: 


@MOVEMRI11: 


@MOVEMR33: 


@MOVEMR4 4: 


@MOVEMR77: 


@MOVEMR7 9: 


ExT. 
BSR 
J.D Bae by 
Kis 


MOVE .L 
BSR 
ADD.L 
aS 


MOVE .B 
MOVE .W 
Bist 
BEQ.S 
LSR.W 
MOVE. 
RTS 


MOVEM "= 
MOVE .W 
MOVE .L 
MOWw EL 
SUB ob 
MOVE .L 
MOVE .W 
Bisek 
BEQ ss 
CIM Wee 6 Le 
BNE .S 
MOVE .B 
MOVE .B 
MOVE .B 
ADD. 
BRA. 
Chey. 
BEQ 
CMP .B 
BEQ 
MOVE .B 
MOVE .B 
MOVE .B 
BRA. 
ChMET. 
BEO. 
Gules 
BEO. 
Ook 
BEQ. 
ADD. 
MOVE .B 


DOE 0 2 ll oe 


FunwnwnwDN 


DO 
@HEX2DEC 
£2 DS 


0 (A4,D3),D0 


@HEX2DEC 
#4,D3 


fim, (AS) + 
PORK 4SCS 7) DO 


#6,D4 
@MOVEMS 2 
#8,D0 
DO, (A5) + 


REGISTER EXPANSION 


2(A4),D2 
#7 ae), 
ie meee De 
#1,A6 
unt Lary Bs: 


+(OR41 44) 


pi pe 
@MOVEMR77 
(A6) , DO 
@MOVEMR4 4 
D4,1(A6) 
D5,2(A6) 


Hee; Of NO) 


#3,A6 
@MOVEMR88 
#’,', (A6) 
@MOVEMR 33 
(A6),D7 
@MOVEMR 33 
D4,1(A6) 
D5, 2 (A6) 


fi! ’ SHG) 


@MOVEMR88 
#’,', (A6) 
@MOVEMR88 
(A6) ,DO 
@MOVEMR88 
in 6), DO 
@MOVEMR7 9 
#3, A6 
Diet 6 ) 


ae 


“Me “to “SNe Be 


BES MANY 


| 


;PERIOD 
oa’ 


f 
i 
SS ae 


f 


x / 

Dye SECOND WORD 

Dil SPACE 

7 =e 

; ADJUST STORE POINTER 
7DS REGISTER # 

;D4 REG CLASS ‘Ae 


“BIT BESEM 
;BIT SET 
;NOT SPACE 
;REG TYPE 
7 RE Gate 


¢ 
¢ 


;COMMA SEPARATOR 
;/ SEPARATOR 


;REG@I Ee 


;REG # 
; - SEPARATOR 


r 
; COMMA 
’ 
; SPACE 
; SPACE 


:/ SEPARATOR 


IMOVEMR8B8 : 


IMOVEMRY4 : 


IDECODE: 


eeC311: 


IDEC404: 


IDEC411: 


ADD. 
ADD. 
CME 
BNE 
GhiEe 
BEO: 
CME- 
PE Ce 
ADD. 
MOVE .B 
MOVE .B 
LSR.W 
BNE 
MOVE . 
sees 
MOVE. 
MOVE . 
MOVE . 
MOVE . 
MOVE . 
LINK 
MOVEM.1L 
LEA 
MOVE .L 
MOVE .L 
MOVE .L 
MOVE .B 
PUB. L 
BNE 


Fnwnw WORE 
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Ee abeeko nee es 


CHECK FOR 
MOVE .W 
LEA 

MOVE .L 
ADD.L 

CMP .W 
BEOQ.S 

CMP .L 

BNE 


LOOK FOR 
MOVEM.L 
MOVE .L 
LEA 

LEA 

MOVE .B 
iol. L 
MOVE .B 
MOVE .B 
LSL.L 


#1,D5 

DG, Dl 
Ce DS 
@MOVEMR11 
(A6) ,D0 
@MOVEMR94 
1(A6) ,DO 
@MOVEMR94 
#3, A6 

D7, (A6) 
#°O'Fap5 
#8,D4 
@MOVEMR11 
DO (20) 


20(SP),A5 
16(SP),DO 
LD (S12) iol 
8(SP) ,D2 
4(SP),A2 
Al, #-16 
DO-D2/A4,-16(Al) 
-16(Al) ,A4 
A5,A3 
#80,D0 
A3,A6 
tf oc apeceeo) 
#1,D0 
@DEC311 


KNOWN ILLEGAL CODES 
(A4),DO 

@KI,A5 

A5,A6 

#2, A6 

(A5)+,D0 

Q@FE12 

A6,A5 

@DEC404 


MATCH OF OP-CODE 
D1-D2,- (SP) 
#8,D2 
@TBL,A5 
@TBLE, A6 
(A4) ,DO 
DZ 3B0 
iL (Uae ere, 
(A5)+,D1 
pe. Da 
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r 
Bh 


e 
f 


Bit fesllion 


; SPACE 

; SPACE 

7 SEPARATOR 
;RESET REG TO ZERO 
;CHANGE REG TYPE 

; MORE 

; SPACE 


f 


e “ce “Se Bo Bo 


;CREATE A FRAME FOR THE 
,CODE. ANDS@ITS PC. Ad 

; PORVOO THE CODE. 

7A3 START OF “OUTPUT BUFFER 


f 


Pee ACE PF Tees Er ER 


f 


° 
f 


i) 


* 


™e "So 


; # (QKIEND-@KI) =2 


;FERROR ILLEGAL CODE 


f 


° 
t 


*/ 

:SAVE D1,D2 

;8=SHIFT CNT 

;A5 POINTER TO DECODE TABLE 
;A6 POINTER TO END OF TABLE 
-FIRST -ByYte 

;FIRST WORD 

sR IERST BYTE 


f 


MOVE .B (AS)+,D1 ;FIRST WORD 





AND .W D1,D0 ; MASK 

MOVE .B (A5)+,D1 ;FIRST BYTE 

Lsb.L DZ, D1 ; 

MOVE .B (A5)+,D1 ;FIRST WORD 

CMP .W D1, DO 

BEQ.S @DEC425 ;FOUND MATCH 

ADD. L #4,A5 ;UPDATE POINTER 

CMP .L A6,A5 ; 

BNE @DEC411 ;MORE TABLE 

MOVEM.L (SP)+,D1-D2 ;RESTORE D1,D2 
@FE12: BRA @FERROR *ILLEGAL INSTEWET Ton 17 
@DEC425: MOVEM.L (SP)+,D1-D2 ;RESTORE D1,D2 

Gir. i D6 ; 

MOVE .B (A5)+,D6 :D6 = (GOTO OFFSET) /4 IEKeB ae 

Mer #4,D6 ; 

MS UF #4,D6 ; 

MOVE.B (A5)+,D6 ;D6 = (GOTO OFFSET)/4 2ND BYTE 

Gige eel, D7 ; | 

MOVE .B (A5)+,D7 ;D7 = INDEX TO OP-CODE 

Ap D a tas ; 
[* MOVE OP-CODE TO BUFFER x / : 

LEA @OPCTBL, AO ; | 
@DEECS 10: TS. Dy Fs \ 

BEQ.S @DEC530 ;AT INDEX . 
@DEC515: TST.B (AO) + : 

BPL @DEC515 ;MOVE THROUGH FIELD . 

SUB.L #1,D7 ; : 

BRA @DEC510 ; 
@DEC530: MOVE.L #30,D0 eee 

Nye DONS, DIO) avs ;A5 = STORE POINTER OP-CODE 1,4 
@DEC535: MOVE.B (AO) +,D0 ; 

BCLR #7,D0 ; ( 

BNE.S @DEC537 ;END OF MOVE . 

MOVE .B DO, (A5) + : 

BRA @DEC535 ; 
@DEC537: MOVE.B DO, (A5) + : : 
ox CALCULATE GOTO AND GO x / . 

MOVE .L 2 DS ;D3= SIZE 

LEA @PGM, AO; ° | 

ADD.L Do 7A: : 

MOVE .L #39,D0 ee 

he Ad 0(A3,D0) , A6 -A6 = POINTER FOR OPERAND 1,4 

MOVE .W (A4),D4 ;D4 = FIRST WORD 

MOVE .B +2! DS ;D5 = CONTAINS ASCII GOMee 

MOVE .W OGD) 7 ;D7 = DATA ALTERABLE MODES ALLOWED 

JMP (AQ) ; 
/* A4 = POINTER TO DATA IN FRAME CREATED BY ‘LINK Al,...’ 
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7 


1COMMONG4 : 
1COMMON : 


1COMMONS 5 : 


k 


IFERROR: 


IFERROR35: 


IFERROR3 9: 


IMSG111: 


ie : 

IKIEND: 
Ne 
2 
v3 
\4 


7BL : 
past 1 ; 


A5 = POINTER STORE OP-CODE 
A6é = POINTER STORE OPERAND 
D30— SIZE = Z2 BYTES 

D4 = FIRST WORD 

D7 = ADDRESS MODES ALLOWED 
ADD. 1. #2,D3 

MOVE. L D3,D6 

MOVE .B t 7 (AG) + 

MOVE .L Ao, A5 

MOVE.L #3,D0 

LEA.L 0O(A3,D0),A6 

MOVE .W (A4)+,D0 

ADD .L #2, A2 

BSR @PNT4HX 

SUB.B 2b) 3 ; 

BNE @COMMON35 ; 
MOVE.L AS, A6 

MOVE .L Ne, AS 

MOVE .L Be AA 

UNLK Al 

MOVE .L ne (Se) 

RTS 

ILLEGAL INSTRUCTION 
MOVE. L #30,D0 

LEA.L 0 (A3,D0) , A6 

LEA @MSG111,A5 

MOVE .B (A5)+,D0 

CMP .B #4,D0 

BE®©.S @FERROR3 9 

MOVE .B DO, (A6) + 

BRA @FERROR35 

MOVE .W (A4) ,DO 

BSR @PNT4HX 

MOVE .L #2,D3 ; SIZE 
BRA @COMMON 

DC.B Vie Oe, RK! 4.” Lites 
mc .B ’ SoM roof fot! a 
DC.B oe a: 

DC.W OX4AFB 

MASK 


OP-CODE PATTERN 
eOTO OFFSET 
miDEX TO OP-CODE 


Pe .L 
BC .W 


OXFECOE6CO 
OX0000 
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(OX1FD) DATA ALTERABLE 


;SIZE = 4 

;D6 = SIZE 

;SPACE AS LAST CHAR 

; SAVE END OF BUFFER POINTER 
;1,4 

rl, 4 

;GET NEXT WORD OF DATA. 

; ADJUST PROG COUNTER. 
;FORMAT DATA. (A6) + 


f 


;A6 


— RESTORE END POINTER 
;A5 = BEGINNING OF BUFFER 
;MOVE THE UPDATED PC 


;TO A&4 AND UNDO FRAME. 


f 


e 
f 


+ 
mee 
~ 
hs 
Ay 


Te “eo Ne We MWe We Me We We We We We We We Reo 


*KNOWN ILLEGAL CODES 


CL Sel 28 


@ISH3: 


@ISH4: 


@ISH5: 


@ISH6: 


@ISH7: 


@ISH8: 


@F1OEX1: 


@F124: 


@F1LOEX3: 


@F9O1: 


@F81: 


@F71: 


@F121: 


@FO6D1: 


@F6D2: 


Be. 
BIG. 
DC. 
De 
DG. 
De. 
BLO 
DE. 
He. 
DE. 
De 
DG 
IG 
IID 
DICE 
Dee 
Dee 
De. 
DC; 
BC. 
De. 
Bee 
De: 
De. 
Dex 
Be. 
Be. 
Bee 
DG 
Dee 
Dez 
De 
DC. 
DCe 
BiG 
BiGe 
De. 
Be. 
BC. 
Bee 
DiC 
BG. 
Be 
DG: 
BIOs 
De. 
BOF 
De. 
Be. 
OF 


FP WSRP UAW AarWarWwWarWarWUSaruwarUdarueatrwWeoearWeahtusahtweaYy va eye. 


a6 
OXFECOE4CO 
OX000 

3) (/ 
OXFECOEZCO 
OX0000 

3 5 
OXFECOEOCO 
OxX0000 

54 
OXFO18E018 
OX0000 

3)15) 
OXFO18E010 
OxX0000 

3) |) 

OxXEOiESE OOS 
Ox0000 

aye 
OXFO18E000 
OX0000 

54 
OXFOCODOCO 
OX0000 

4 
OXF OD EO 0 
OXO0000 

31, 
OXFOOODO0O 
OX0000 

4 

OXF 1F8C188 
OX0000 

ay, 

OXF IESC146 
OXO000 

20 
OXF1F8C140 
Ox0000 

20 

OXF IFOC100 
OX0000 

49 
OxXETCOCICE 
OX0000 

48 
OxXbACCCCCH 
OX0000 

477 
OXFOOOCOO00 
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; ADD <EA> A@ 


pe101: 


aFILOEX4: 


¢aF12A1: 


aF102: 


IFIOEXS: 


IFIOEX6: 


wF 122: 


MP 1LOBRX2: 


a 123: 
{F6D3: 
tF6D4: 
103: 
4IMVO1: 
7IBSRI1 : 
4IBSR2: 


CCl: 


MIDBCC1: 


| 


BCH 
DC; 
BC 
De 
Ber 
BC. 
Bee: 
BC. 
Be 
BC. 
BC. 
BC. 
BC. 
DC. 
BC. 
BC. 
Be. 
DC. 
BC. 
BC. 
BC . 
BC. 
BC. 
BC. 
EC. 
De. 
De. 
Ec. 
BC. 
BC. 
BC. 
BC. 
BC. 
DC. 
De. 
BC. 
EC. 
BC. 
Bc. 
BC. 
BC. 
be. 
BC . 
BC. 
BC. 


DC. 
BC . 
|) Oe 
BC . 


WS HWS HW SHY OSHW SHO SHO SHO SHO SHO SHO SHO SHO SHS Hess 


OX0000 

Z 
OXFOCOBOCO 
OX0000 

) 
OXF138B108 
OxX0000 

40 
OXF100B100 
Ox0000 

eS, 
OXFOOOBOO0O 
OX0000 

) 

Ox Ce 0SUCO 
OX0000 

44 

Op ars0 7 100 
OX0000 

45 
OXFO0009000 
OX0000 

44 
OAFIFOS8100 
OX0000 

43 

OEE Oe1 CO 
OX0000 

42 
OXF1CO80C0 
OX0000 

41 
OXFOOO8000 
OxX0000 

40 

OXF 1007000 
OX0000 

SY, 

CAE HOUGIOO 
OX0000 

=) IL 
OXFFO06000 
OX0000 

65 
OXFOQ06000 
OX0000 

38 
OXFOF850C8 
Ox0000 

a7 
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SUB 


<EA> A@ 
<EA> AQ 
3 


@SCCl1: 


GhOUICK I’: 


@IQUICK2: 


@F6A1: 


@F6D5:; 


@F1l1SL1: 


@F11SL2: 


@SCOMMON1: 


@SCOMMON2 : 


@SCOMMON3: 


@SCOMMON4 : 


Q@ISTOP1: 


@SCOMMONS: 


@SCOMMONE : 


@IMVFUSP1: 


@IMVTUSP 1: 


Q@F51: 


SPWSHWSHWSHW SHOW SEHUW SHO SHU SHO SHU SHU SYS SPS Ses 


OXF OCO50C0 
OX0000 

Bile 

OxE 1005100 
OX0000 

i 2) 
OXF1005000 
OX0000 

34 
OXF1C041C0 
Ox0000 

33 
OXF1C04180 
OxX0000 

Sy4 
OXFFCO4ECO 
OX0000 

of 
OXFFCO4E80 
OX0000 

30 
OXFFFE4E77 
OX0000 

Ze 
OXFFFF4E76 
OXO0000 

Z5 
OXFFFF4E75 
OX0000 

27 
OAEPEER GE? 3 
OX0000 

26 
OP Be P aby 2 
OxX0000 

Z5 
OXFFFF4E71 
OX0000 

24 
OXFFFEF4E70 
OX0000 

Z3 
OXFFF84E68 
OX0000 

60 
OXFFF84E60 
OX0000 

60 
OXFFF84E58 
OX0000 
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~ ™e Me Be Be Bo 


7 EMIS 

ADDQ 

LEA 

CHK 

JMP 1 4 


JSR 1,4 


Me Re We We Be We We Be We We We We We We We BV 


a 

; TRAPV 

RTE 

; NOP 

; RESET 

; MOVE FROM#USE 


A 


;MOVE TOVWUSE 


° 
f 





a7 LINK1: 


aF 41: 


¢IMVMTRI1 : 


aFIAL: 


¢aF11: 


aE 31: 


a 32: 


¢qIMVMFR1: 


qF33: 


aF111: 


qF1A2: 


¢IMVTSR1: 


aF12: 


aIMVTCCRI1 : 


qF13: 


aF14; 


| 


POS HU SHO SHO SHO SPO SHUO SHO SHO SHPO SHO SHPO SHPO SPO SHO SHS 


Ze 
OXFFF84E50 
OxX0000 

Za 
OXFFFO4E40 
OX0000 

20 
OXFF804C80 
OX0000 

15 
OXFFCO4ACO 
OX0000 

ie. 
OXFFOO4A00 
OX0000 

dle 
OXFFF 84 8CO 
OX0000 

dy 

OXFFF 84880 
OX0000 

IG 
OXFF804880 
OX0000 

ane 

OXFFF 84840 
0OX0000 

14 
OXFFC04840 
OX0000 

13 
OXFFCO04800 
OX0000 

TZ 
OXFFCO046CO 
OX0000 

ae, 
OXFFO004600 
OX0000 

hal 
OXFFCO044CO 
OX0000 

3), 

OXF FO04400 
OX0000 

0 
OXFFO04200 
OxX0000 

2 

OXF FCO40CO0 
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; UNLINK 


f 


f 
; LINK 


) 
t 


; TRAP 


v 


;MOVEM FROM REGISTERS 
; TAS 
Sa 


e 
v 


Fal cip 60 a Es 


f 


Pn SED Nea 


e 
f 


; MOVER TO REGISTERS 
ee 
; PEA 
: NBCD 


Pp MOV ha @ Vor 


d 
eNOT 


° 
f 


PMOVE M10 CCR 


;NEG 
; 


7;CLR 


@IMVFSRI1: 


@F15: 


@IMOVE1: 


@IMOVEZ2: 


@IMOVE3: 


@IMMED1: 


@IMMED2: 


@IMMED3: 


@IMMED4: 


@IMMED5: 


@IMMED 6: 


@IMOVEP1: 


@ISETS1: 


@ISETS2: 


@ISETS3: 


@ISETS4: 


CES Nba 


WSEHWEHWSHUSHUWSHUO SHO SHU SHO SHO SHO SHPO SPS PSS hss 


OX0000 

D2 
OXFFOQ04000 
OX0000 

8 
OXFO0003000 
OX0000 

ae) 

OXF 0.002.000 
OxX0000 

60 
OXF0001000 
OX0000 

3)6 

OEE OCC 
OX0000 

6 
OXFFOOQOAO0O 
OX0000 


= 
OXFFO00600 
OX0000 

4 
OXFFOO00400 
OxX0000 
OEE COOZO0 
OX0000 

2 
OXFFQOO000 
OX0000 

al 

OXF 1380108 
OX000 

0 

OXF FCOO0O8CO 
OX0000 

64 
OXFFCO0880 
OX0000 

63 
OXFFC00840 
OX0000 

GZ 
O7EECO0800 
OX0000 

61 

OZR 1TCOO1CO 
OX0000 

64 


;MOVE.W FROM SR 


126 


Goh TD2: 


QISETD3: 


QISETD4: 


gTBLE: 


4OPCTBL: 


DC. 
BEG 
Dee 
IDC 
De 
DE. 


DC. 
Dex. 


BC. 
Be. 
EC. 
Be. 
DC. 
De. 
DG 
Die. 
De... 
De . 
DC: 
De. 
ee. 
Be. 
De. 
De. 
Be. 
Be . 
De. 
De. 
Oe. 
De: 
DE. 
Be. 
De. 
DC. 
DOr 
BC. 
De. 
DC. 
me . 
De. 
De. 
Bex. 
De. 
De. 
BC . 
WC. 


WSHW Shows 


UOMO CREOCHEOCMLDCHEUCHEUCHEU CMEC CMEOCHE OCHO CHIU CHOU RIOCMEOCMIUC MEO CMIUCHOCMIUCMLUCHIOCMLUCMLOCMEUCMEG CMO CMD CMEGCHEG CMEC CHLUOMIUCMLUCMIGCMUOMIDS) 


OXF1C00180 


OX0000 
63 


OXF1C00140 


OX0000 
62 


OXF1C00100 


Ox0000 
61 


SU CU NESS E  cd 
epee” , 12647 R’ , 7 
'N’,128+'D',/S! 
Situ aya a 
BE tO mo ot! Ri 
'M’,128+'P! 
Baik We oy 
'G’,128+' x! 


128+'R’ 
rN’ 770)’ 
‘RB! Te! 
‘BR! 
‘st 
7a 
re 
Loy! AG BZ 
Mb ea Se 
128+'L! 
tae ok © 
128+'B’ 
128+'P! 
128+'K’ 
128+'K’ 


‘WwW’ 


J BY 


-~ “= | 


’R’, 


myye 
IR 


~ 


f 


f 


f 


mM! 
TN’ 
Ce! 
‘BR! 


Bae ee? 
,128+'D! 


f f f f 
f A f E 


a 
/128+" 
a e 
rine! 
,ES 
Pee 
eee 
eye 
ae 


eee an 


128+/W’ ,/M’,/0" 


,1284+'M’ EB! 
1284+/ Ww’ 
f 


f 


Aad hed 
oS! 
ee 
a red 
eye 
ride se 


~ ~ ~ ~ ~ ~ ~ 


Apap. 7 Upe 


L28cnee 
Were” 
aed bd 
aR ame DT 
ts Ree a 
sr 


rer 
nS 
mpr 
ede 58 


° 
ee 


f 
f 
f 
7 
f 
f 
t 


A 
rs’ 
ie 
‘Ri 
Mode 
TN’ 
‘Re 
Ny! 


aeceee 
Aaa 
,128+' S! 
, 128+" Vv" 
, 128+! R’ 


,128+'R!,' I! 


epee Cl, 7 
| 2S 


i! 


oe alee eae 


DD eg Oa ©" 
(U7 Bla B+". 
'D’,128+'B’,128+'B’,’ 


“oO! 


7 
, VW’, E','O 


rt, 1284°H" ,70! 


eee 


ay 
TN’ 
Oi" 
ost 
Or 
PO” 
ile ee 
or! 


~ = hlUSlUSUCUNG 


/ 798s 
mm! 
Ke 
‘El 
fied 
Pe” 
128+! 


~ = hlUSlUSUCUNS 


ple oe 
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PBCLR 
;BCHG 


' 
,BUST 


™e 


"ee 


’ 

° 

f 

i 

’ 
Ge 

e 


™e "oe Mo Mo Me Me We 


fee 
’ 
f 


e 
f 


° 
tf 
° 
f 
° 
f 
° 
f 
B’ 
° 


“Te SNe Ne Re Ne Meo NT 


r 
fo. 

Soi 
7 e 

MM; 


f 
y. 
Ear 


/* 
ye: 
/* 


@PNT8HX: 


yx 


@PNT6HX: 


/* 


@PNT4HX: 


/* 


@PNT2HX: 


BLO 
OXY 


IDI: 
Be. 
be. 
Bee 
IBC. 
BC. 
DE. 
Dey 
Dee 


DG. 
Dez 
Dex 
Be 
De. 
BAST, 


DICT 
Dez 
DC 
DC. 
Ce 
De; 


3, 
QO 
DWWWWWWDWWOWWOWTWWOWTOTWTWTWOOOWOWOOOO wD 


is 
ar 
Ny 
‘st 
a! 
‘U! 


avr 
Gee 


aS! 
‘B! 
(3 fe 
‘RB!’ 
eo SEY 
Fs 9 oe ae Wd 
128+/W! 
BS ee ees 


TOB eu Go 


~ = *§ & 


1X! ,1284+/G! 


IRS ee ea 
SUA oa aaa Ue 
I EeAlo nt o.G 


2 8eo, 


f / f f 
pe 


(1284! We, een 


,f.1, 12840" 
,'C!,128+4'D! 
,128+'B!,'S! 
128+" xen 
,128+'M! ,M! 
Pe 0 Neer ai 
, M’, ae 
, 128+! W! 
,128+'D! 
,'B! 
B20)" 
,'D! 


1 ihe! 
ae 
a yd 
oe 
Pes 
Pes 8) 


-~ = ss» 


Ne 
ye 
he 
'R! 


1265" sa 
,1282aom 


COC 
aece 
de hee 
f f 
pe 
Be 
“BS 
ee, 
See 
leper 


128+! x! 
a rd 
fOr ad 
128+! W! 
‘Eel EEE 
ae ‘Ss! 
ae Gd an 
(Ce yi,’ 
1S! ret 
rR! 


-~_ ~ ~» = 


PRINT HEXSRCULINES 
PRINT 8 HEX CHARACTERS 
DO, D1, D223 DE slr oOGED 


SWAP DO 
BSR.S @PNT4HX 
SWAP DO 
BRA.S @PNT4HX 
PRINT 

SWAP DO 
BSR.S @PNT2HX 
SWAP DO 
PRINT4 HEX CHARACTERS IN DO.W 
MOVE .W BO il 
ROR.W #8,D0 
BSR.S @PNT2HX 
MOVE .W D1,D0 
PRINT 

MOVE .W BOeD2 
ROXR.W #4,D0 


, Mie Oe 
1287. 
PE! 

7 Meo 
alge ae 
128 4e 
12erre: 
1284 ae 
POO a0 


Pasa? | 8 is! 


6 HEX CHARACTERS 


2 HEX CHARACTERS IN DO.B 


128 


~ 


~ 


ba in in i in © i in in © nf iin © iin fy 


30) | me Ne 


~ 


“=e 


Te “Se le Meo Bo MWe Me Ne Neo 


a 
ag 
a7 


;FLIP REG HALVES 
;DO TOP WORD 
;NOW DO LOWER WORD 


ey 

;FLIP REGISTER HALVES 

;FLIP BACK REG HALVES 
ie 

;SAVE IN TEMP 

;GET BITS 15-8 INTO LOWER BYTE 

; PRINT Sa 

;PULL IT BACK 

a 

;SAVE IN TEMP REG 

;FORM UPPER NIBBLE 





y* 
@PUTHEX: 


Q@SAVHEX : 


/* 
@PNTZHX: 


@PNTZO: 


Q@PNTZ1: 


@PNTZ2: 


Q@PNTZ4: 


@PNTZ3: 


@PNTZ8: 


@PNTZ81: 
@PNTZO: 
/* 


@HEX2ZDEC : 


@HX2DC: 


QHX2DC0: 


BSR.S 
MOVE .W 


CONVERT 


AND .B 
ORB 
CMP .B 
BLE #3 
ADD 
MOVE .B 
RS 


PReount Hex 


CLR oi 
MOVE .L 
Jc) Os 
Beis. S 
NEG.L 
BMI.5S 
MOVE .B 
MOVE .L 
MOVE .L 
MOVE .L 
SUB. 
BEO. 
ASR. 
AND. 
SUB" 
BNE 
AND. 
BNE . 
it . 
BEQ. 
BSR 
MOVE .B 
SUB. L 
BNE 
fst .B 
BNE. > 
MOVE .B 
RTS 


se Oe ae 


AW Nw 


@PUTHEX ;PUT ASCII INTO PRINT BUFFER 
D2,D0 ;GET BACK FROM TEMP 
DO.NIBBLE TO HEX & PUT IT IN PRINT BUFFER */ 


#OX0F,DO ;SAVE LOWER NIBBLE 
#0xX30,D0 ;CONVERT TO ASCII 
#0X39,D0 ;SEE IF IT IS>9 

@SAVHEX ; 

#7,D0 ;ADD TO MAKE 10=>A 

DO, (A6) + /-PUT IT iN PRINT BUFFER 
(ZERO SURPRESS) * / 

D4 ;IS ZERO WHEN SURPRESSING 
DO,D1 ;SAVE IN TEMP 

@PNTZ81 Ah ANS) 

Q@PNTZO ; 

D1 ;CHANGE TO POSITIVE VALUE 
@PNTZ81 ;WATCH OUT SPECIAL CASE O0X80000000 
#’—' , (A6) + ;PUT SIGN INTO BUFFER 
#8,D2 ;8 POSSIBLE CHARACTERS 
D1,D0 ;UNSAVE IT 

DZS be ;COUNT DOWN FROM HERE 
#1,D3 ;BACK OFF ONE 

@PNTZ4 ;IF NO ROTATEVSKIP THIS 
#4,D0 ;ROTATE LRIGHT 
#OXFFFFFFF, DO ;CLEAR TOP NIBBLE 

#1,D3 ; 

@PNTZ2 : 

#OXF,DO ;SAVE ONLY NIBBLE 

@PNTZ3 r 

D4 fSEE IF STILL SURPRESSING 
@PNTZ8 r 

@PUTHEX ;PUT A HEX CHAR IN BUFFER 
DO, D4 ;MARK AS NON-SURPRESSING MODE 
De ;DO ANOTHER CHAR 

@PNTZ1 F 

D4 ;SEE IF ANYTHING PRINTED 
@PNTZ9 ? 

#'0O’, (A6) + ;MOVE AT LEAST ONE ZERO 


CONVERT BINARY TO DECIMAL REG DO PUT IN (A6) BUFFER AS ASCII */ 


MOVEM .L 


MOVE .L 
BPL.S 
NEG.L 
BME. S 
MOVE .B 
CER .W 
MOVE .L 
MOVE .L 
MOVE .L 


D1-D4/D6-D7,-(A7) ;SAVE REGISTERS 


Bony ;SAVE IT HERE 
@HX2DC = 

by ;CHANGE TO POSITIVE 
@HX2DC57 ;SPECIAL CASE (-0) 
#’-', (A6) + ;PUT IN NEG SIGN 

D4 ;FOR ZERO SURPRESS 
#10,D6 ; COUNTER 

Sh ID ; VALUE TO SUB 

D6,D1 ; COUNTER 


12 


@HX2DC1: 


@HX2DC2: 


@HX2DC22: 


@HX2DC3: 


@HX2DC4: 


@HX2DC5: 


@HX2DC57: 


@HX2DC6: 
/* 

We 

@IS2: 


} 
} 


sue. L 
BEG. Ss 
MOVE .W 
MULU 
SWAP 
MULU 
SWAP 
ADD .W 
SWAP 
SWAP 
MOVE .W 
SUB 
BNE 
Cir. 
CME = 
Bian. 
ADD. 
SUB. 
BRA 
hol. 
BNE. 
ele. 
BEQ. 
ADD. 
MOVE .B 
MOVE .B 
SUB .L 
BNE 

TST .W 
BNE Ss 
MOVE .B 
MOVEM.L 
Ris 


moe le er 


WDMnan Ww 


Ds, 2 
al yl 
@HX2DC1 
DO 

Be.D7 
@HX2DC3 
#1,D0 
D2,D7 
@HX2DC22 
DO 
@HX2DC4 
D4 
@HX2DC5 
#0X30,D0 
DO, (A6) + 
BO, D4 
#1,D6 
@HX2DCO 
D4 
@HX2DC6 
#°O’, (A6)+ 
(A7)+,D1-D4/D6-D7 


END OF ROUTENE 
DISASSEMBLY PROGRAM ENDS 


MOVEM.L (SP)+,D0-D7/A0-A7 
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;ADJUST - A POWER OF TEN 


; IF POWER 5 e240 
;D3=LOWER WORD 


f 
;D2=UPPER WORD 


;ADD UPPER VT Omer e Ee 


;PUT UPPER TNGUPERR 
;PUT LOWER IN LOWER 


;D2=UPPER & LOWER 


Lf 


;HOLDS SUB AMT 


;IF NO MORE SUB POSSTBES 


;BUMP SUBS 


;COUNT DOWN BY POWERS OF TEN 


7;DO MORE 
; ANY VALUE? 


; ZERO SURPERESS 


;BINARY TOsAceret 
;PUT INSBULP ER 


;MARK AS NON ZERO SURPRESS 


;NEXT POWER 


;SEE IF ANYTHING PRINTED 


;PRINT AT LEAST A ZERO 
;RESTORE REGC@SLERS 


ca 
as 


° 
f 


y. Source code of test.c 


Meee * test.c **x */ 


/* This program determines the start and the end 
addresses for the download.c program, and also 
contains the user program. * / 


@enar *start, *end; 


SUBA.L Al, A3 
MOVE.L A3,D0 
SUB.W #8,D0 


rest () { 
asm { 
LEA @1,A0 : 
MOVE.L AO,Start =, 
LEA @2,A0 £ 
MOVE .L AO,end ;@2 is already in AO 
LEA @1,Al : 
LEA @2,A3 : 
LEA Q@3,A2 ; 


MOVE .W DO, (A2) yooumt OL “Chars to be sent... 
JMP (AQ) ; 

i DC.W 0x0000 : 
DC .W ee 1 O00 ,download address... 

i DC.W 0x0000 ,centaans count of chars... 


/ x xxx USER PROGRAM BEGINS ***) */ 


/x %k* USER PROGRAM ENDS *** */ 
de: NOP ; 
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B. SOURCE CODE OF MONITOR PROGRAM. 
; /*x ** ecb.asm ** */ 
;/* These programs reside in the lower addresses of ROM. At the system 
; start-up these routines are copied to RAM. During execution, some of 
; the routines run in ROM and some of them run in RAM. 
: The Main program loops and waits for any command from Macintosh. Aftel 
; receiving the command, the program execution is switched to the desire 
; routine. Which in turn, upon its execution returns to Main. 
p+ / 
/* Initvalyzati onus 
/* 
Function: 1- Copies ROM Contents to RAM. 
2- Autovector Level 4 and Level 6 Interrupt Handler Addre 
are loaded in their place in Exception Vector Table. 
Also, other defined Vector entries are filled with the 
address of STACKFRAME Routine. The purpose is, just to 
prevent the system from doing undesired things and the 
loss of system stack space. 
3- The Stack Allocation is done for SSP,ISP,USP. 
4- Makes PHANTOM Low. 
of 
ROM EQU $00040000 
PHAN LOW EQU $00020000 
INTR CHK EQU SOOOEOO00O0 
VIOL VEC EQU 500000020 
TRAC VEC EQU $00000024 
INT1 VEC EQU $00000064 
INT2 VEC EQU S$00000068 
EINT3 VEC ECU SOO000006C 
INT4 VEC EQU S$00000070 
INT5 VEC EQU $00000074 
INT6 VEC EQU $00000078 
INT7 VEC EQU S$0000007C 
TRAP VEC EQU $000000BC 
WORD CON EQU SOQOQOOFFFF 
SEND ZER EQU $000C8000 
SEND ONE EQU $00040000 
TBL FPCR EQU $O0000E9C 
TBL FPSR EQU SOOOOO0OEAO 
TBL FIAR EQU SOOO000EA4 
TBL FPO EQU SOOOOO0EA8 
TBL FP1 EQU SOQOQQ00EB4 ;FLOATING POINT REGISTERS. | 
TBL FP2 EQU $O00000ECO | 
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‘BL FP3 
‘BL FP4 
‘BL FP5 
‘BL FP6 
‘BL FP7 
'BL DO 
BL D1 
‘BL D2 
BL D3 
'BL D4 
BL D5 
BL D6 
‘BL D7 
‘BL AO 
'BL Al 
'BL A2 
BL A3 
‘BL A4 
‘BL AS 
‘BL A6 
‘BL USP 
‘BL SSP 
‘BL ISP 
‘BL PC 
‘BL SRHI 
BL SR 
‘BL VBR 
‘BL _CACR 
‘BL _CAAR 
fi SFC 
NTR_ENB 
[ASK 7 
RAP 15 
[AXINT 
SRKCOUNT 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ZOU 
EQU 
OU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


S$OOQ000ECC 

SOOOO0ED8 

SOOOQ00EE4 

SOOOO0EFO 

SOOOO0O0EFC 

SOOO0O0F08 ;MC68020 REGISTERS. 
SOOOOOFOC 

SOOOOO0F10 

SOOO00F14 

SOOOO00F18 

SOOOOOFI1C 

SOOO000F20 

SOO000F24 

SOOO000F28 

SOOOO00F2C 

SOOO000F30 

SOO000F34 

SOOO000F38 

SOOO000F3C 

SOOOOOF40 

SOO000F44 

SOOO000F48 

SOOOOO0OF4C 

SOOOO0FS50 

SOOOO0O0FS4 ;HIGH ORDER WORD IS ZERO (ie. S6FEC). 
SOOOO00FSE ;LOW ORDER WORD IS SR (ie. S6FEE). 
SOOOO00F58 

SOOOOOFSC 

SOOOOO0F60 

SOOO0O00F64 

SF8FF ;DEFINED CONSTANTS. 
$0700 

S4E4F 

S7FFF 

SOF 


‘* Filling Exception Vector Table Entries */ 


ORG 


LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 


$00000000 ; 
SOQOOO1FFFC Peer lAR SACK SPOINTER (ISP). 
HERE ; INITIAL PROGRAM COUNTER. 


STACKFRAME+ROM ;VECTOR NUMBER 02 
STACKFRAME+ROM ;VECTOR NUMBER 03 
STACKFRAME+ROM ;VECTOR NUMBER 04 
STACKFRAME+ROM ;VECTOR NUMBER 05 
STACKFRAME+ROM ;VECTOR NUMBER O06 
oTACKFRAME+ROM ; VECTOR NUMBER 0O7 
VIOLHANDLER+ROM ;THE ENTRY POINTS TO 
; PRIV.VIOLATION TRACE HANDLER. 
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/* 


LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 


ORG 


LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 


ORG 


TRACEHANDLER+ROM; THE ENTRY POINTS TO TRACE HANDLER; 


STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 


$00000060 


STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
HANDLER+ROM 
STACKFRAME+ROM 
ABORT+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME +ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
TRAPH+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 


Initializing the Stack Pointers, 


$00000400 


; VECECE 
; VECTOR 
; VECTOR 
; VECTOR 
; VEGIOR 
; VECTOR 
7VEC TOR 


ry 
A 


> VECTOR 
7, vec Lon 
; VECTOR 
, VEC LOR 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


NUMBER 
NUMBER 
NUMBER 
NUMBER 


10 
alee 
IZ 
ims) 
14 
IL: 
16 


Pag! 


;THE ENTRY POINTS 
; VECTOR NUMBER 29 
,; THE BENERY POrn. 


; VECTOR 
7; VECTOR 
7; VECTOR 
7 VECTOR 
; VECTOR 
7 VECTOR 
* VECTOR 
+ VECTOR 
; VECTOR 
VECTOR 
; VECTOR 
PVEe TOR 
; VECTOR 
; VECTOR 
*VECTOR 
; VECTOR 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


om 
a2 
35 
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, THE ENIRY Porn. 


; VECTOR 
"VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
-Vieror 
VEGTOR 
; VECTOR 
; VECTOR 
2 VECTOR 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
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TO INTERRUPT HANDLER. © 


TO INTERRUPT HANDLER. — 


TO TRAP #15 HANDLER. 


and making PHANTOM Low. */ 


;THIS ADDRRESS IS THE END OF EXCEPTS 


HERE : 
L1: 


me Bnd of initialization 


MOVEA.L #$00,A0 


MOVE .L 
eMr. i 
BLE 
NOP 
MOVE .L 
LONG 
MOVE .L 
LONG 
ANDI 
MOVE .L 


(AO), (AO) + 
#LAST, AO 
Tai 


#S500001FC00,D1 


S4E7B1803 
#$1F800,D2 
$4E7B2800 


° 
f 


° 
f 


» 
f 
° 
f 
° 
¢ 
¢ 
¢ 
f 


f 


° 
f 


#INTR_ENB, SR ; 


PHAN LOW, DO 


aay. 


/* MAIN Routine Below */ 


| * 


Function: 


ee 
MAIN: 


prec P OQ: 


meer 1: 


fer 3: 


Loops endlessly, 


Each command, 


code. 


° 
f 


which 


’0’ for DOWNLOAD 
‘1’ for UPLOAD 


we’ £ORTGO 


ro for CALL 
'4’ for MEMDISPLAY Command. 
‘5’ for MEMWRITE 
(5° fer sBOWNLOAD 


VECTOR TABLE. 
LOAD THE START ADDRESS OF PGM. TO RAM... 
COPY ROM CONTENTS TO RAM. 


a One <—-S LE COO: 
7 Oise =D ial 
> (D2]<-S1F800. 


(SiS? Ilse PDH) |e 
ENABLE INTERRUPTS. 
MAKE PHANTOM LOW, SWITCH TO RAM. 


waiting for a command from Macintosh. 


is sent by the Macintosh, has a special 


These codes for the commands are shown below: 


Command. 
Command. 
Command. 
Command. 


Command. 
Command. ( With Coprocessor Enabled ). 


After receiving one of these commands, program execution 
is switched to the desired routine. In case of an error, 
in receiving the command byte, Main simply continues to 


MOOD, 


as if no command was received. In this case user may 


retry his last command. 


JSR 
ere .B 
BNE.S 
BSR 
BRA 
eM .B 
BNE .S 
BSR 
BRA 
eMP.B 
BNE.S 
eVSu5. 
cMr.B 
BNE.S 
BSR 


RUART+ROM 
+O 
SKIP 0 
DOWNLOAD 
MAIN 
#1,D3 
SKIP 1 
UPLOAD 
MAIN 
#2,D3 
Sve 8 

GO 

#4,D3 
SKIP 4 
MEMDISPLAY 


° 
v 
e 
¢ 
¢ 
° 
¢ 
° 
v 
° 
v 
° 
v 
° 
tA 
v 
e 
t 
° 
¢ 
e 
v 
° 
v 
° 
v 


e 
f 


GET THE COMMAND IN D3. 

IS IT DOWNLOAD ?.. 

IF NOT, CONTINUE TO FIND A MATCH. 
IF YES, DOWNLOAD. 

DOWNLOAD DONE, WAIT FOR THE NEXT COMMAND. 
IS IT UPLOAD ?.. 

IF NOT, CONTINUE TO FIND A MATCH. 

IF YES, UPLOAD. 

UPLOAD DONE, WAIT FOR THE NEXT COMMAND. 
iS teCOe; .. 

IF NOT, CONTINUE TO FIND A MATCH. 

TEP ES: BCOn 

IS IT MEMDISPLAY ?.. 

IF NOT, CONTINUE TO FIND A MATCH. 

IF YES, MEMDISPLAY. 
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BRA 
Skip 4: CMP .B 
— BNE.S 
BSR 
SKIP_5: CMP .B 
BNE.S 
BSR 
SKIP 6: CMP .B 
7 BNE.S 
BSR 
SKIP 7: BRA 


MAIN 


+5, DS ;1S 
SKIPS Bates: 
MEMWRITE 7 LE 
#3,D3 ;1IS 
SKIP 6 pa 
ele) as papi 6) 5 
TOFS ;IS 
SKIP_7 5 

DOWNLOAD : 

MAIN ete) 


/* MAIN Routine Ends */ 


/* Communication Routines 


;MEMDISPLAY DONE, WAIT FOR THE NEXT COMM 


iT MEMWRITES: 2 


NOT, CONTINUE 
YES, MEMWRITE. 
i? CAs 

NOT, CONTINUE 


TO FIND A MATCH. 


TO FIND A MATCH. 


YES, GO (IN CASE OF ‘CALL’ IN MACRES 


IT DOWNLOAD WITH COPROCESSOR ENABLED 


AND WAIT FOR THE NEXT COMMAND. 


(SUART, RUART, DELAY, GETBIT) Below */ 


which is in low byte of Dae 


:BITS TO BE SEND SHOULD BE IN D3. 
-EIGHT BITS ARE TO BE SENT. 


;EVALUATE LEAST SIGNIFICANT BIT. 


/*  SUART Routine Below */ 
/* 
Function: SUART sends byte data, 
Timing is adjusted such that Baud rate of 9600 is obtained. 
Modified 
Registers: D3 is used to pass argument to SUART. Other than that 
register contents are not modified. 
Called by: UPLOAD, FUPLOAD, MEMWRITE, MEMDISPLAY, SCNTS. 
yp 
SUART: MOVEM.L D4=-D5,-(SP) 
MOVE .Boaee, DS 
wok SEND_ZER+DELAY1 ; SEND® oTART Bide 
AGAIN: BEST #0 ,,D3 
BNE ONE ; 
JSR SEND ZER+DELAY1 ;SEND A ZERO 
JMP ROM+SKIP Fs 
ONE: JSR SEND ONE+DELAY1 ;SEND A ONE. 
Siecle. ROR .B fe, DS ;GET THE OTHERS le 
SUBO.B Baa2 0s ; 
BNE.S AGAIN i 
JSR SEND ONE+DELAY1 ;SEND FIRST STOP BIT. 
JSR SEND ONE+DELAY1 $SEGOND SirOorelor. 


MOVEM.L (SP)+,D4=-D5 


RES 


/*  SUART Routine 


/* DELAY1 Rout 


Ends */ 


ine Below */ 


;RESTORE ORIGINAE REGISTERS 


v 
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manction: 
Modified 
Registers: 
Called by: 
e/ 
DELAY : MOVE. 
BOOP 1: NOP 
NOP 
SUB. L 
BGE 
NOP 
NOP 
RTS 


DELAY1 provides a delay of (1/9600) seconds. Which is 
needed to provide a Baud rate of 9600. 


D4 is modified. But this will not affect the original D4 
value, since it was saved in SUART. 


SUART. 
L #S0A,D4 ;GET THE DELAY LOOP COUNT IN D4. 
*?THIS COUNT AND NOPsS ASSURE A BIT TIME 
OPE 1/ DOOR) mse ONDs . 
#1,D4 ;DELAY1 IS CALLED BY SUART, SINCE IT SAVES 
IOC) ; D4 WE DON’T NEED TO SAVE D4 HERE. 


° 
td 
e 
v 


;RETURN FROM DELAY1 SUBROUTINE 


/x DELAY1 Routine Ends */ 


/‘x RUART Routine Below */ 


Function:  RUART receives a byte of data from RS232 input, at a Baud 
rate of 9600. 
Modified 
Registers: D3 is modified. It is used to pass the received byte to 
the calling routine. 
Called by: MAIN, DOWNLOAD, LDREGTBL, GO, MEMWRITE, MEMDISPLAY, GETLONG. 
7 
RUART : MOVEM.L DO-D2/D4=-D7,-(SP); 
START ; MOVE .B 41,Di 7 SET eRECE RYE BUPFERS( BIT # 0 ). 
JMP PE eee Ti CHECK RS23Z2 IN, WAET FOR THE START BIT 
TEXT 1: NOP ; 
NOP ;ENOUGH DELAY FOR RS232 INTERRUPTS. 
NOP - 
JMP OME 2 lit. : 
NOP : 
a iT): CMP .B 20); Blak ;IF [D1]=1, RS232 IN WAS LOW. START BIT 
; CAME. 
ee. S SAR T ;IF [D1]=0, RS232 INPUT WAS HIGH. WAIT FOR 
Pe Une, CLARY Bit. 
MOVE.L #0,D6 ; 
sAB1 DBF D6, LAB1 ; 
MOVE.L $5AB1,D7 ; 
MOVE.B #1,D1 ; 
JMP ieee dintNEATZ, .; CHECK RSZ32 IN. 
IEXT2 NOP - ; 7 
| NOP ; ENOUGH DELAY FOR RS232 INTERRUPT 
| NOP : 


v 
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NOP 

EX Eee CMP .B 
BNE.S 
MOVE .L 
NOP 

LAB2: DBF 
MOVE .L 
GLE eB 
MOVE .B 

GERE; JSR 
OR.B 
ROR.B 
MOVE .L 
SUB.B 
BNE ZS 


MOVE .B 
JSR 
Base 
BNE. 
JSR 
MOVEM.L 
JMP 


PASS]: JSR 
Bao e 
BNE 
JSR 
MOVEM. L 
JME 

Peos 2. MOVEM.L 
RTS 


/*  RUART Routine 


/x GETBIT Routine 


ROM+EXIT2 ; 


° 
‘ 


#0,D1 ;IF [{D1]=1, RS232 IN LOW. START BIT CAMm 

START ;IF [D1]=0, NO RS232 IN. PREVIOUS START ] 
#7,D6 ; WAS SPURIOUS. WAIT FOR START BIT. 

D6, LAB2 ; START BIT RECEIVED. NOW START TO RECEIV} 
S5AB2, Di ; FOLLOWING BITS. 

D3 ;THE BITS WILL BE SHIFTED INTO D3. 

#8,D2 ;8 IS THE NUMBER OF BITS TO BE RECEIVED. 

ROM+GETBIT ;GET NEXT BIT. 

Biss ;GEF THE BIT INTOsbee 

7, Ds ; 

$5AB3,D5 : 

#1,D2 ; ‘ 
CIRC ;AT THE EXIT POINT WE ARE ALREADY ON THE 


; STOP BIT #1. RECEIVING THE BITSsaiiee He 
; NOW CHECK STOP@Ei. 


D3, S55AB4 


ROM+GETBIT ei FIRST STOP #242. 
#0,D1 
PASS1 TF IT CAME CHECK FOR THE SECOND STOP Ba 
SENDERROR+ROM ;SEND RECEIVE ERROR TO MACINTOSH. 
(SP) +,D0-D2/D4-D7; AND 
MAIN ; RETURN TO MAIN LOOP, WAIT FOR NEXT 
; COMMAND. 
ROM+GETBIT ; CHECK SECOND (oiler elie 
#0,D1 ; 
PASS2 


SENDERROR+ROM  ;SEND RECEIVE ERROR TO MACINTOSH.. 

(SP) +,D0-D2/D4-D7;AND.. 

MAIN ;RETURN TO MAIN LOOP, WAIT FOR NEXT COM 
(SP) +,D0-D2/D4- D7; 


, 


Ends */ 


Below */ 


Function: GETBIT receives a "bit" of data from RS232 input, at a Baum 
rate of 9600. It senses the RS232 input. 


Modified 
Registers: Dl 


is modified. It is used to pass the received bit to | 


the calling routine. 


Called by: RUART. 


“ae 


138 


se lBIT: MOVEMeL DS-D6,—-(SP) ; 


MOVE.B #1,D1 ; 
MOVE.L $5AB5,D5 : 
JMP PERC nicmNEXT3 ;CHECK RS232 INPUT. 

NEXT3: NOP ; 
NOP ;PROVIDE ENOUGH DELAY FOR RS232 INTERRUPT. 
NOP ; 
JMP ROM+EXIT3 : 
NOP ; 

ox. LT3: MOVE.L $5AB6,D5 ;WITH BATS MOVE  beresb>5, THE FOLLOWING DBF 
MOVE.L #1,D6 INSTRUCTIONS WITH 2 DIFFERENT COUNTS IN 
Bas Tr #0,D1 D6 GUARANTEES THE SAME AMOUNT OF DELAY 


BEO.S SKIPO 
MOVE.L #5,D6 


IN CASE OF AN INTERRUPT OCCURRENCE OR NOT. 


"mo Be “Ne Be Neo Ne We 


SKIPO: DBF D6, SKIPO 
MOVE.L #2,D6 

ADT : DBF D6, ADJ 
MOVE.L $5AB7,D5 ; 
MOVEM.L (SP) +,D5-D6 ; 
RTS 


meee GETBIT Routine Ends */ 


/* Communication Routines (SUART, RUART, DELAY, GETBIT) Ends */ 


/x* FLTCLR Routine Below */ 


Function: FLTCLR initializes the Coprocessor’s control and data 
registers to zero. After power-up, the Coprocessor’s 
registers contain ( S$7FFF OOOF FFFF FFFF ) in Packed Format. 
FLTCLR clears all Floating Point registers. 

Modified 

Registers: None. 


Called by: DOWNLOAD. 


k / 
SETCLR: WORD SEZ SC ;FMOVE.L #0,FPO0 
WORD $4000 ; 
WORD $0000 : 
WORD $0000 ; 
WORD Se 2 3C ;FMOVE.L #0,FP1 
WORD $4080 
WORD $0000 : 
WORD $0000 ; 
WORD SF23C ;FMOVE.L #0,FP2 
WORD Se 11010) i 
WORD $0000 ; 
WORD $0000 ; 
WORD SZ 36 ;FMOVE.L #0,FP3 
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WORD $4180 ; 

WORD $0000 ; 

WORD $0000 ; 

WORD SF23C ;FMOVE.L #0,FP4 

WORD $4200 ; 

WORD $0000 ; 

WORD $0000 ; 

WORD SF23C ;FMOVE.L #0,FP5 

WORD $4280 : | 
WORD $0000 ; | 
WORD $0000 : 

WORD SF23C ;FMOVE.L #0,FP6 

WORD $4300 : 

WORD $0000 ; ; 
WORD $0000 ; 

WORD SF23C ;FMOVE.L #0,FP7 

WORD $4380 : : 
WORD $0000 ; | 
WORD $0000 ; " 
RTS : 


/* FLTCLR Routine Ends */ } 


/x* DOWNLOAD Routine Below */ | 


Function: DOWNLOAD, Downloads the bytes (in user program), 

which are sent by the Macintosh. 
Modified ; 
Registers: None. 


Called@iby:] MATie 





aie 
DOWNLOAD: MOVE.B  #0,COP_ENB ; 
BTST.B #3,D3 ; COPROCESSOR ENABLED BY USER ? 
SNE COP_ENB ; ..YES, SET COPROCESSOR ENABLED FLAG. 
MOVEM.L DO-D7/A0-A7,-(SP) ; 
JSR GETLONG ;D3 DOWNLOAD ADDRESS. | 
MOVEA.L D3,Al ; [Al]<- LOAD ADDRESS | 
MOVE.L #8,D6 ;COUNTER TO SHIFT LOW BYTE TO HIGH BYTE ~ 
JSR RUART+ROM ;GET HIGH BYTE OF COUNT. 
LSL.L D6,D3 ;MOVE LOW BYTE TO HIGH. | 
JSR RUART+ROM ;GET LOW BYTE OF COUNT. 
AND.L #SOQO00FFFF,D3 ;CLEAR HIGH WORD. 
MOVE.L D3,D0 ; [DO]<- COUNT. 
;THE NUMBER OF BYTES TO BE DOWNLOADED ARI 
;EQUAL TO COUNT IN DO ABOVE. | 
;NOW START TO RECEIVE COUNT NUM. OF BYTE! 
DLOAD: MOVE.L A1,A3 ;SAVE LOAD ADDRESS FOR CHECKSUM CALCULA’ 
MOVE.L DO,D4 ; SAVE COUNT FOR CHECKSUM CALCULATION. 
LABQ9: JSR RUART+ROM ; LOAD THE USER PROGRAM. 
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MOVEmee D3, (Alps ; 
SUB.W #1,D0 ; 
BNE.S LAB 99 ; 
JSR RUART+ROM 7 GE Eh CHECKSUM. ([DS2Bi—- CHECKSUM. 
MOvVE.s  DSs;D5 ; SAVE RECEIVED CHECKSUM IN [D5.B]. 
MOVE.L A3,Al1 ;RETRIEVE LOAD ADDRESS. 
MOVE .B (Al) +,D0 *;BEGIN TO CALCULATE CHECKSUM. 
SUB .W #1,D4 8 
LAB88: MOVE bee (Al a DG : 
EOR.B  D6,D0 ; 
SUB.W  #1,D4 ; 
BNE.S LAB88 7 CHECKSUM CALCULATION DONE HERE. 
CMp- EB B57 D0 ; COMPARE RECEIVED & CALCULATED CHECKSUMS. 
BNE .S C ERROR ;IN CASE OF ERROR ALERT MACINTOSH. 
BSR FLTCLR : 
BSR UPDATETBL2 ;LOAD REGISTER TABLE WITH CURRENT VALUES. 
BSR UPLOAD ;SEND THESE VALUES TO MACINTOSH. 
TST.B  COP_ENB : 
BEO.s Soo, ; 
BSR UPDTE CEBL ; 
BSR FUP LOAD : 
SKP_CO: MOVEM.L (SP)+,D0-D7/A0-A7; 
RTS ;RETURN TO CALLER. 
c ERROR: JSR SENDERROR+ROM-~ ; 
MOVEM.L (SP)+,D0-D7/A0-A7; 
1a) EAS : 
/* DOWNLOAD Routine Ends */ 
/* LDREGTBL Routine Below */ 
Function: LDREGTBL receives the portion of data which contains register 
information. Places this data in the register table, which 
Sedmecedcechne address JBL DO. 
Modified 
Registers: None. 
Called by: GO. 
p/ 
sDREGTBL: 
MOVEM.L DO-D7/A0-A7,-(SP) ; 
MOVE.L 68(SP),D4 ,24 REGs x 4 = 96 BYTES WILL BE RECEIVED. 
MOVE.L 72(SP),A6 ,;PUT BASE LOADING ADDRESS IN A6. 
MOVE .L A6,A5 ;SAVE A6& IN AS (FOR USE IN CHECKSUM CALC). 
MORE : JSR RUART+ROM PolLART RECEIVING BYTES... 
} MOVE.B D3, (A6) + : 
| SUB.L #1,D4 ; 
BNE .S MORE 7RECEBVE ENDS... 
JSR RUART+ROM 7 oh CHECKSUM BYTE. (IT WILL BE IN [D3]}). 
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MOVE. 
MOVE . 
SUB.L 


GETCHKSUM: MOVE . 


EOR. 
SUBS 
BNE. 
CMP . 
BNE. 
BRA 


nw Wee 


C ERROR2 gee 


FINISH: MOVEM.L (SP)+,D0-D7/A0-A7; 
RTS ; 
/*  LDREGTBL Routine Ends */ 
/* UPLOAD Routine Below */ 
Function:  ULPOAD sends the data which is contained in register table, 
to the Macintosh. 
Modified 
Registers: None. 
Called by: DOWNLOAD, TRAPH, TRACEHANDLER. 
m7, 
UPLOAD: MOVEM.L DO-D7/A0-A7,-(SP) ; 
MOVEA.L #TBL_DO,A6 : 
MOVE.B #96,D4 ;SET BYTES COUNT Sie 
ROUND : MOVE.B (A6)+,D3 ; 
JSR ROM+SUART . 
MOVE.B $6664,D3 ;THIS MOVE.B IS FOR ADJUSTING THE TIMING 
SUB.B #1,D4 ; (DO}<==ceuNT . | 
BNE.S ROUND : 
MOVEM.L (SP)+,D0-D7/A0-A?7; 
1S ;RETURN TO CALLER. 
/* UPLOAD Routine Ends */ 
/*  FUPLOAD Routine Below */ 
Function: FULPOAD sends the data which is contained in Floating Point 
Register Table, to the Macintosh. 
Modified 
Registers: None. 
Called by: DOWNLOAD, TRAPH, TRACEHANDLER. 
wy 


;COMPUTE CHECKSUM... 
L 68(SP) ,D4 ;24 REGs x 4 = 96 BYTES WILL BE RECEIVED. 
B (A5)+,D0 ; 108 (FOR FLOATING) 
#1,D4 
B (A5)+,D6 
D6,D0 
#1,D4 
GETCHKSUM 
D3,D0 ;CHECKSUM COMPUTATION ENDS. 
C ERROR2 : 
FINISH ;RETURN TO CALLER. 
SENDERROR+ROM ;IN CASE OF ERROR ALERT MACINTOSH. 


SMe “Te Ne BMe We 
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FUPLOAD: 


FROUND : 


MOVEM.L DO-D7/A0-A7,-(SP); 
MOVEA.L #TBL FPCR,A6 


MOVE. 
MOVE. 
JSR 

MOVE . 
SUB Ee 
BNE .S 


B 
B 


B 


#108,D4 
(A6)+,D3 
ROM+SUART 
$6666,D3 
: ey! 

F ROUND 


Pole eOUNT INGD4 . 
Pints MOVE Eels SOReADIJIUSTING THE TIMING. 
FeO -- COUNT. 


tf 


MOVEM.L (SP)+,D0-D7/A0-A7; 


Ras 


/* FUPLOAD Routine Ends */ 


/x GO Routine 


Function: 


Modified 
Registers: 


Called by: 


x / 
30; 


ee lPTS: 


SETCTS: 


MOVE. 
MOVE 
MOVE. 
JSR 
MOVE 
MOVE 
LEA 
JSR 
MOVE . 
DUB .B 
BNE.S 
MOVE. 
MOVE. 
LEA 

JSR 

BoL.L 
JSR 

AND .L 
MOVE. 
Sub .B 
BNE.S 
PEA 

MOVE. 
BSR 


Below 


GO 
ih 
oe 
3- 
hs 


bis 


;RETURN TO CALLER. 


receives the following parameters in that order: 
Display Steps Byte 

Five Break Point Addresses 

Five Break Point Counts 


All of the Registers, 


None. 


MAIN. 


B 
-B 
B 


{Je 
_B 


L 


L 
B 


L 


L 


Pon VOL FLAG 


D3, SAVECODE 
#1,FIRSTINST 
RUART+ROM 

Do week STEP 
#5,D4 
BRKPT1,A6 
GETLONG 

D3, (A6) + 
#1,D4 

GETPTS 

#8,D6 

#5,D4 
BRKCNT1,A6 
RUART+ROM 
D6,D3 
RUART+ROM 
#SOOQOOOFFFF,D3 
D3, (A6) + 
#1,D4 

GETCTS 

TBL DO 
#96,-(SP) 
LDREGTBL 


Program Counter. 


“Me “Me “Ye 


yok. DISe Fothr BYTES 
pEeUteiT INeiesS LOCATION. 


7 LOAD AG WITH THE ADDRESS OF FIRST BREAK | 
;POINT ADDRESS HOLDER. 


f 


f 
;BRKPT1 THRU BRKPT5 ARE LOADED WITH 
; ADDRESSES® 


;LOAD A6é WITH THE ADDRESS OF FIRST BRKCNT. 
;GET LOW BYTE OF COUNT. 

BMOVE SLOW BYTE eP@  HiGH . 

Pont LOW BYTE OF COUNT. 

;CLEAR HIGH WORD. 

Pi(AG) | <—— COUT. 


*-BRACNTI THRU 5 ARE LOADED WITH THE COUNTS. 


f 


; LOAD THE REGISTER TABLE FROM MACINTOSH. 
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oie i: 


PASS 1: 


PASS 322 


PASS 3: 


PASS 4: 


FASO Je 


ADD.L 
Tet. B 
BEGES 
PEA 
MOVE. ts 
BSR 
ADD.L 
Bist.B 
BNE 
Biot... 
BNE 
CPi. L 
BEQ.S 
MOVE .L 
CMPA.L 
BEO.s 
MOVE .W 
MOVE .W 
CMET.L 
BEO os 
MOVE 2 
CMPA.L 
BEO.s 
MOVE .W 
MOVE .W 
CMP Tas 
BEQOZo 
MOVE .L 
CMPA.L 
BEOr. 
MOVE .W 
MOVE .W 
CMPIz& 
BES 
MOVE .L 
CME Ay bs 
BE@2s 
MOVE .W 
MOVE .W 
CME TT 1s 
BE@os 
MOVE .L 
CMPA.L 
REO es 
MOVE .W 
MOVE .W 
BSR 
DS 
BE OS 
ke 


#8,SP 
COP_ENB 
SKEger 
TBL FPCR 
#108, -(SP) 


-LDREGTBL 


#8, SP 

i”, TB sR 
PASS 6 
#6,TBL SR 
PASS 6 

#0, BRKPT1 
PASS 1 
BRKPT1, A6 

TBL PC,A6 
PASS 1 
(A6) , TMPPT1+2 
#TRAP 15, (A6) 
#0, BRKPT2 
PASS 2 
BRKPT2, A6 

TBL PC, A6 
PASS 2 

(A6), TMPPT2+2 
#TRAP 15, (A6) 
#0, BRKPT3 
PASS 3 
BRKPT3, A6 

TBL PC,A6 
PASS 3 
(A6) , TMPPT3+2 
#TRAP 15, (A6) 
#0, BRKPT4 
PASS 4 
BRKPT4, A6 

TBL PC,A6 
PASS 4 
(A6) , TMPPT4+2 
#TRAP 15, (A6) 
#0, BRKPT5 
PASS 
BRKPT5, A6 

TBL PC,A6 
PASS 5 
(A6) , TMPPT5+2 
#TRAP 15, (A6) 
UPDATEREGS 
COP_ENB 

SMe Te 
UPDTFLREGS 


ee 


; 
; IF USER DOES NOT ENABLE COPROCESS@ra 
;DO NOT WAIT FOR FLOATING REGISTERS. 


f 


;LOAD THE FLOATING REG. TABLE FROM : 
; MACINTOSH. 

: 1S @RACE ALL 
;...YES , DO NOT INSERT TRAP #15. | 
;IS TRACE BRANCH ? 

;...YES , DO NOT INSERT TRAP #15. 

; IN CASE OF NO BREAK POINT FOR ANY BRKPT 
;'$0000’ WILL BE SENT FROM MAC. IF IT ig 
;ZERO THEN SKIP SAVING AND CHECK OTHERS. | 
;IS BREAKPOINT = PC ? 

;... YES DO NOT INSERT TRAP 15 CODE, 

;IF BRKPT1 IS NOT EQUAL TO $0000 THIS 
;MEANS TAHT A BRKPT WILL OCCUR. AND FIRST 
;PIECE OF CODE IS TAKEN OUT AND SAVED It 
;TMPPTx, THEN TRAP 15 CODE IS INSERTED. 


7; IS BREAKPOINT = Pee 
YES DO NOT INSERT TRAP 15 CORES 


IS BREAKPOINT ee 
YES DO NOT INSERT TRAP 15 >¢¢@ea= 


IS BREAKPOINT = fee. 
YES DO NOT INSERT TRAP 13 Cele 


IS BREAKPOINT = PC ? 
YES DON’T INSERT TRAP 15 CODE. 
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BeP C2: #$MOVE.L TBL USP,AO ;READY FOR USP. 
z MOVE.L A0O,USP ;LOAD USP FROM TABLE. 
MOVE.L TBL_ SSP,AO ;READY FOR SSP. 
LONG $4E7B8803 ;LOAD SSP FROM REG.TABLE. 
MOVE.L TBL_ISP,AO ;READY FOR ISP. 
LONG $4E7B8804 ;LOAD ISP FROM REG.TABLE. 
;SKIP LOADING PC. 
;DESIRED PC WILL BE LOADED WITH 
PEpE SUSE wOhm RTE alc iRUCT LON. 
CMP.B #2, SAVECODE : 
BEQ.S GOGO ; 
totes £5, TBL SR : 
BNE.S  N_USER ; 
MOVE.L TBL_USP,AO ; 
MOVE.L #CALL, - (AQ) ; 
MOVE.L AO,USP ;LOAD USP AFTER PUSHING CALL ADDRESS. 
BRA GOGO ; 
N USER: Blot.B #4, TBL SR ; 
y BNE.S N_INTR ; 
MOVE.L TBL ISP,A0O : 
MOVE.L #CALL, - (AO) : 
LONG $4E7B8804 ; LOAD ISP AFTER PUSHING CALL ADDRESS. 
BRA GOGO ; 
N INTR: MOVE.L TBL_SSP,AO ; 
MOVE.L #CALL, - (AO) ; 
LONG $4E7B8803 ; LOAD ISP AFTER PUSHING CALL ADDRESS. 
30GO: MOVE.L TBL AO,A0 ;LOAD AO.IT WAS SKIPPED ABOVE. 
MOVE.W #$0000,-(SP) ;PUSH FORMAT/OFFSET WORD. 
MOVE.L TBL PC,-(SP) ;PUSH THE PROGRAM COUNTER ON TO THE STACK. 
MOVE.W TBL SR, -(SP) ; 
BSET.B- #7, (SP) Poet) (UGH TRACE BIT) . 
BCLR.B #6, (SP) ;CLEAR TO (LOW TRACE BIT). 
RTE ;(T1 TO = 1 0) ALLOWS TRACE ALL. 
; THIS WILL POP THE NEW PC & SR VALUES 
; OFF THE STACK AND CONTINUE EXECUTION 
; WITH THE INSTRUCTION AT NEW PC VALUE. 
2>ASS_ 6:  #MOVE.B- #5,D4 ; 
LEA BRKPT1, A6 ;LOAD A6 WITH THE ADDRESS OF FIRST BREAK 
; POINT ADDRESS HOLDER. 
SLR_ALL: MOVE.L #$00, (A6)+ : 
SUB.B #1,D4 ; 
BNE.S  CLR_ALL : 
BRA PASS 5 ; 


me GO Routine Ends */ 


/* MEMWRITE Routine Below */ 


Function: MEMWRITE writes the user specified data (Byte/Word/LongwWord) 
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into user specified memory locations. 
Modified 
Registers: None. 


Called by: MAIN. 


* / 
MEMWRITE: MOVEM.L DO-D7/A0-A7,-(SP) ; 
JSR RUART+ROM “GEReCIZE . 
MOVE.B D3,D4 -(D4.B]<- SIZE. 
JSR GETLONG ; 
MOVEA.L D3,A6 ; [A6]<- MODIFY ADDRESS. 
MOVE.L A6,A5 ;SAVE A6 IN AS. 
MOVE.B D4,D5 ; 
BCLR #7,D4 ; 
CONTINUE: JSR RUART+ROM ; 
MOVE.B D3, (A6)+ ;WRITE TO MEMORY, BYTE BY BYTE. 
SUB.B  #1,D4 -LOOP UNTIL SIZE BYTES ARE RECEIVED. 
BNE.S CONTINUE :(ie., FOUR BYTES IF SIZE = LONGWORD). 
BTST #7 D5 ;BIT #7 OF SIZE BYTE IS SET BY MACINTOSH 
BNE.S VERIFY ;IF VERIFY WAS DESIRED. 
BRA THERE : 
VERIFY: BCLR +7 DS ;IF USER WANTS TO VERIFY THEN READ BACK — 
TR ALL: MOVE.B  (A5)+,D3 ;AND SEND TO MACINTOSH. 
JSR SUART+ROM ; 
SUB.B aL A ES ; 
BNE.S [Ree aaa ; 
THERE: MOVEM.L (SP) +,D0-D7/A0-A7; | 


RTS ;RETURN TO CALDER: 


/*  MEMWRITE Routine Ends */ 


/*  MEMDISPLAY Routine Below */ 


Function: MEMDISPLAY receives the user specified address range 
(16 bytes at a time), and fetches the bytes from these 
memory locations, and sends these bytes to Macintosh. 

Modified 

Registers: None. 


Called by: MAIN. 


we! 
MEMDISPLAY: MOVEM.L DO=-D7/A0-A7,~-(SP); 
JSR GETLONG ; 
MOVEA.L D3,A6 ; [A6]<- DISPLAY ADDRESS. 
vse RUART+ROM ;GET LOW BYTE OF COUNT. 
MOVE.B D3,D4 ; [D4.B]<- COUNT. 
;PARAMETERS ARE OBTAINED NOW, START TO § 
; THOSE MEMORY CONTENTS TO MACINTOSH. 
MOVE.B (A6)+,D3 ;BYTE TO BE SENT IS IN D3 NOW. 
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MOVE .B 
JSR 
SUB.B 
BEQ.S 
TOUR 1: MOVE.B 
a EOR.B 
JSR 
SUB.B 
BNE.S 
SKPTOUR: MOVE.B 
JSR 


bs, DU 
SUART+ROM 
al De 
SKPTOUR 
(A6)+,D3 
De, Do 
SUART+ROM 
+i D4 
TOUR 
DO, D3 
SUART+ROM 


; 
7 OLN ees lela 


fd 


PETE, TO BE SENT IS IN D3 NOx 
;CHKSUM WILL ACCUMULATE IN [DO.B]. 
;SEND THE BYTE, WHICH IS ALREADY IN D3. 


tf 


 {ESt -——-= CHhysuMa. 
; SEND CHKSUM, WHICH IS ALREADY IN [D3.B]. 


MOVEM.L (SP)+,D0-D7/A0-A7; 


RTS 


/x MEMDISPLAY Routine Ends 


/x UPDTFLTBL Routine Below 


;RETURN TO CALLER 


ey 


nas 


Function: UPDTFLTBL updates the Floating Point Register Table. 
It moves the control registers as longwords, and the 
Floating Point Registers as packed, to the table. 


Modified 


Registers: None. 


Called by: TRAPH, TRACEHANDLER. 


“/ 

JPDTFLTBL: MOVE .L 
MOVE .L 

ART FL: LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
MOVE .L 
RTS 


AO, SAVEAO ;SAVE AO WITHOUT DISTURBING THE STACK. 
#TBL FPCR, AO ; [AO]<- TABLE LOWER BASE ADDRESS. 
SF218BCO00 ;FMOVEM.L FPCR/FPSR/FPIAR, (AQ) + 
SF2186C11 ;FMOVE.P FPO, (AQ)+ 

SF2186C91 ;FMOVE.P FP1, (A0O)+ 

SF2Z186D11 ;FMOVE.P FP2, (AQ) + 

SF2186D91 ;FMOVE.P FP3, (A0Q)+ 

SF2186E11 ;FMOVE.P FP4, (AO) + 

SF2186EA1 ;FMOVE.P FP5, (AO)+ 

SF2186F21 ;FMOVE.P FP6, (AQ) + 

SF2186FA1 ;FMOVE.P FP7, (AQ)+ 

SAVEAO, AO ; 


/x UPDTFLTBL Routine Ends 


/xk UPDATETBL Routine Below 


e 
f 


te 


fil 


Function: UPDATETBL updates the register table. Moves the copies 
| of MC68020 registers, to the table. 


Modified 
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// 


Registers: 


None. 


Calltede by: TRAEH. 


UPDATETBL:MOVE.L AO, SAVEAO 


MSPTR: 


SHSGIE: SIE” 


/* 


fs: 


MOVE .L 


#TBL USP, AO 


; SAVE AO WITHOUT DISTURBING THE STACK. 
; (AQ}<- TABLE LOWER BASE ADDRESS. 


MOVEM.L DO-D7/A0-A6,-(A0O) ; LOAD ALL DATA REGS. AO IS LOADED DUMMY 


MOVE . 
MOVE. 
MOVE . 
LONG 

MOVE. 
LONG 

MOVE . 
Bas f- 
BNE .S 
ADD.L 
BRA 

ADD .L 


eee Ge 


08) em, 


MOVE. 
MOVE . 
MOVE. 


aah 


LONG 
MOVE .L 
LONG 
MOVE .L 
LONG 
MOVE .L 
MOVE .L 
LONG 
MOVE .L 
LONG 
Si 
OR. L 
MOVE .L 
MOVE .L 
rs 


SAVEAO, TBL AO 
USP ,AO 

AO, TBL_USP 
S4E7A8803 
AO, TBL SSP 
$S4E7A8804 
AO,TBL ISP 
#4,TBL SR 
MSPTR 
#28,TBL ISP 
SKIPP 
#28,TBL SSP 


22Se), CBRL PC 
#$00,TBL SRHI 
ZOnor)), [El isk 


S4E7A8801 
AO,TBL VBR 
S4E7A8002 
AO, TBL CACR 
S4E7A8802 
AO,TBL CAAR 
DO, SAVEDO 
S4E7A0001 
DO) TBieohe 
$4E7A0000 
#4,D0 

DO, TBL SFC 
SAVEDO, DO 
SAVEAO, AO 


UPDATETBL Routine Ends */ 


UPDATETBL2 Routine Below 


Fumetion: 


UPDATE TBC. 


ey 


;IT WILL BE OVERWRITTEN ON NEXT LINE. 
;REAL VALUE OF AO IS SAVED. 


:USP IS LOADED. 

> {A0]<- [MSP] 

>LOAD MSP. 

:(A0]}<- [ISP] 

;LOAD ISP. 

:DID USER CHOOSE TO USE ISPamm 

:  SOR-MSP a 7a 

+28 BYTES STACK SPACE IS USED BY: 

;8 BYTES BY TRAP#15 4 WORD STACK FRAME, 
;16 BYTES BY SAVING D3, D4, AS, A6 REGS 
:4 BYTES BY BSR UPDATETBL IN TRAP 15 , 
; HANDLER. = 
;LOAD PC. (IT IS AT LOCATION SPiaeum 


;LOAD ’S$0000’ FOR SR HIGH WORD. 

,;LOAD SR LOW WORD. (IT IS AT LOCATION 
, SP1Z0 

; LOAD VBR. 


; LOAD CACR. 
; LOAD CAAR. 


(pO l<— DEC. 
sDFC IS IN ITS PRACE, 
;(DOJ]<- SFC. 


f 


™e "6 ™e 


;RETURN TO CALLER. | 


UPDATETBL2 updates the register table. Moves the copies 
of MC68020 registers, 


to the table. Slightly different from 
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Modified 


Registers: None. 


Called by: DOWNLOAD. 


e 
f 


e 
f 


SAVE AQ WITHOUT DISTURBING THE STACK. 
[AQ0]<- TABLE LOWER BASE ADDRESS. 


MOVEM.L DO-D7/A0-A6, - (AO) ; LOAD ALL DATA REGS. AO IS LOADED DUMMY 


m/ 

JPDATETBL2: MOVE.L AO, SAVEAO 
MOVE.L #TBL USP, AO 
MOVE.L SAVEAO,TBL_ AO 
MOVE.L USP,AO 
MOVE.L AO0O,TBL USP 
LONG $4E7A8803 
MOVE.L AO,TBL SSP 
LONG S4E7A8804 
MOVE.L AO,TBL ISP 
BTST.B #4,TBL_SR 
BNE.S MSPTR2 
ADD.L #548,TBL ISP 
BRA SKIPP2 

MSPTR2: ADD.L #$48,TBL SSP 

SKIPP2: MOVE.L #$1000,TBL PC 
MOVE.W #$00,TBL SRHI 
MOVE.L #TBL_ SR,AO 
MOVE.W SR, (A0) 
LONG S4E7A8801 
MOVE.L AO0O,TBL VBR 
LONG $4E7A8002 
MOVE.L A0O,TBL CACR 
LONG $4E7A8802 
MOVE.L AO,TBL CAAR 
MOVE.L DO, SAVEDO 
LONG $4E7A0001 
MOvE.i D0,TBL SFC 
LONG $4E7A0000 
LSL.L #4,D0 
OR.L NiO), SLE, Shale 
MOVE.L SAVEDO,DO 
MOVE.L SAVEAO,AO0 
RTS 


l* 


lk 


UPDATETBL2 Routine Ends */ 


UPDATETBL3 Routine Below 


a 


e 
f 
e 
f 
e 
f 
e 
f 
e 
f 
e 
f 
e 
f 
e 
f 


e 
f 


e 
f 


e 
f 
f 

e 
f 

e 
f 

e 
f 

e 
f 

e 
f 

e 
f 
f 

e 
f 
f 

e 
f 


f 
f 
f 
e 
f 


e 
f 


IT WILL BE OVERWRITTEN ON NEXT LINE. 
REAL VALUE OF AO IS SAVED. 


UseEels LOADED: 

[AO]<- [MSP]. 

LOAD MSP. 

(abdt<- [ISP]: 

LORD ISP. 

BD USER GROOSE #e@,Use ISP 7... 
GR IMSE “2 


LOAD ’$1000’ FOR PC !... 
LOAD ’$0000’ FOR SR HIGH WORD. 


LOAD SR LOW WORD. 


>LOAD VBR. 


>LOAD CACR. 


*LOAD CAAR. 


[Bor — Dre. 
DEG] IS IN ITSeeLACE. 
Peon - SEC. 


RETURN TO CALLER. 


Function: UPDATETBL3 updates the register table. Moves the copies 
Of MC68020 registers, to the table. Slightly different from 
UPDATETBL and UPDATETBL2. 


Modified 
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Registers: 


None. 


Called by: TRACEHANDLER. 





* 
/ 
UPDATETBL3: MOVE.L AO, SAVEAO ;SAVE AO WITHOUT DISTURBING THE STACK. 
MOVE.L #TBL _USP,A0 ; [A0]<- TABLE LOWER BASE ADDRESS. ! 
MOVEM.L DO-D7/A0-A6,-(A0);LOAD ALL DATA REGS. AO IS LOADED DUMMY 
;IT WILL BE OVERWRITTEN ON NEXT LINE. 
MOVE.L SAVEAO,TBL AO ;REAL VALUE OF AO IS SAVED. 
MOVE.L USP,A0O ; 
MOVE.L A0O,TBL USP ;USP IS LOADED. 
LONG $4E7A8803 ; [AQ]<- [MSP]. 
MOVE.L A0O,TBL SSP ;LOAD MSP. 
LONG $4E7A8804 ; [AQ] <- [ISP]. | 
MOVE.L A0O,TBL_ ISP ;LOAD ISP. 
BTST.B #4,TBL SR ;DID USER CHOOSE TO USE ISP ?.. 
BNE.S MSPTR3 ; OR MSP ?.. 
ADD.L #16,TBL_ISP ; 
BRA SKIPP3 — : 
MSPTR3: ADD.L #16,TBL SSP ;xx BYTES STACK SPACE IS USEDMEas 
;8 BYTES BY TRAP#14 4 WORD STACK FRAME, | 
716 BYTES BY SAVING D3, D4, A5, A6 REGS” 
;4 BYTES BY BSR UPDATETBL IN TRACE HANDLE, 
SKIPP3: MOVE.L 6(SP),TBL PC ;LOAD PC. (IT IS AT LOCATION®SP aa 
MOVE.W #$00,TBL SRHI ;LOAD ’$0000’ FOR SR HIGH WORD. | 
MOVE.W 4(SP),TBL SR ;LOAD SR LOW WORD. (IT IS AT LOCATION SE 
LONG $4E7A8801 ; 
MOVE.L A0O,TBL VBR ; LOAD VBR. ; 
LONG $4E7A8002 ‘ : 
MOVE.L AO,TBL CACR ;LOAD CACR. | 
LONG $4E7A8802 ; | 
MOVE.L AOQ,TBL CAAR ;LOAD CAAR. | 
MOVE.L DO, SAVEDO ; 
LONG $4E7A0001 : 1DON=— DFCe 
MOVE.L DO,TBL SFC ;DFC IS IN ITS {PEACE 
LONG $4E7A0000 ; [DO] <= SHEE 
iGSlky, 16 #4,D0 : 
OR.L OND), Wisin SIC 
MOVE.L SAVEDO,DO 
MOVE.L SAVEAO, AO 
RTS 
/*  UPDATETBL3 Routine Ends */ 
/*  UPDTFLREGS Routine Below */ 
FunCeom. 


sent by the Macintosh. 


;RETURN TO CALEBRe 
UPDTFLREGS updates the Floating Registers, with the data 
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Modified 
Registers: None. 


Called by: GO. 


* / 

UPDTFLREGS:MOVE.L #TBL FPCR, AO ; 
LONG SF2189C00 ; FMOVEM. L (AQ) +, FPCR/FPSR/FPIAR 
LONG $F2184C00 ;FMOVE.P (AO) +, FPO 
LONG $F2184C80 ; FMOVE.P (AO) +,FP1 
LONG $F2184D00 ; FMOVE.P (AO) +,FP2 
LONG $F2184D80 ; FMOVE .P (AO) +,FP3 
LONG $F2184E00 ; FMOVE.P (A0)+,FP4 
LONG $F2184E80 ; FMOVE.P (AO) +,FP5 
LONG S$F2184F00 ; FMOVE.P (A0)+,FP6 
LONG S$F2184F80 ; FMOVE.P (AO) +,FP7 
RTS : 


/x* UPDTFLREGS Routine Ends */ 


/x* UPDATEREG Routine Below */ 


UPDATEREGS updates the registers, with the data 
sent by the Macintosh. 


Function: 


Modified 
Registers: None. 


Called by: GO. 


”/ 
JPDATEREGS: MOVE.L #TBL_DO,A0 ; 
MOvVEM.1, (A0)+,D0-D7 ; 
ADD.L  #4,A0 ;SKIP AO IN THE TABLE (RESTORED IN "GO"). 


MOVEM.L (AO) +,A1-A6 ; 
;READY FOR VBR. 


MOVE.L TBL VBR,AO 

LONG S4E7B8801 ;LOAD VBR FROM REGISTER TABLE. 
MOVE.L TBL CACR, AO »>READY FOR CACR. 

LONG S$ 4E7B8002 ; LOAD CACR FROM REGISTER TABLE. 
MOVE.L TBL CAAR, AO ;READY FOR CAAR. 

LONG S4E7B8802 ; LOAD CAAR FROM REGISTER TABLE. 
MOVE.L TBL SFC,DO ; 

AND. L #SOO000000F,DO ; 

LONG S4E7BOOO1 ; [DFC]<-[DO]. 

MOVE.L TBL SFC,DO ; 

LSR.L #4,D0 : 

LONG S4E7B0000 ; [SFC]<-[D0O]. 

MOVE.L TBL_DO,DO ; 

RTS ;SR WILL BE POPPED OFF THE STACK LATER. 


/* UPDATEREG Routine Ends */ 
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/* Interrupt Level 4 HANDLER Routine Below */ 


Function: HANDLER clears Dl to indicate a ’0’ has been received. 
Al9, Al7 bits of the return address are cleared to disable 
further interrupts, after RTE. 

Modified 

Registers: Dl. 


Called by: In case of level 4 Interrupt. 


* | 

HANDLER: ANDI.L #SFFF5FFFF,2(SP); 
Cine 6 D1 : 
RTE ; 


/* Interrupt Level 4 HANDLER Routine Ends */ 


/* TRAP HANDLER Routine Below */ 


Function: TRAPH, Handles Trap 15. 
Puts all Registers & Stack Pointer Contents to Memory, 
(namely to the register table), and waits for Command 
from Macintosh. 
TRAP Instruction 





SSP eo FORMAT/VECTOR OFFSET -> (SSP) 
SSP=4e oor PC => ese 
SSP eee SR => (Sieg 


VECTOR ADDRESS => Fe 
Modified 
Registers: SP, SR. 


Called by: tneease Gt trap 15 Cecursce 





* 
/ 
TRAPH: MOVEM.L D3-D4/A5-A6,-(SP) ;SAVE THE REGISTERSTO BE MODIFIED. 
SUB. LE #2,18(SP) ; [(PC]<- [PC]~-2 (THE ONE SAVED ON STAGh 
Bos UPDATETBL ;LOAD REG TABLE BEFORE UPLOADING IT. 
tol. 5 COP ENB ;IF USER DOES NOT ENABLE COPROCESSOR 
BE@aS SKP C3 ;DO NOT UPDATE FLOATING REGISTER TABLE. 
Bor UE PTE RTE : | 
SKP_C3: MOVE.L 18(SP),D3 ; [D3]<- INSTRUCTION ADDR. CAUSING TRAP 1! 
MOVE.W #4,D4 ; 
LEA BRKPT1,A6 ;ONE OF THE BREAKPOINTS SHOULD BEVEOURS 
SEARCH: CMP .L (AG) +, D3 ;TO THAT ADDRES ee 
DBEQ D4, SEARCH : 
CMP .W #0,D4 g 
BLT DSPLY ; 
SUB. es #4, A6 ; IF SO DECREMENT TAHT BREAKPOINT’ S COUNS 
MOVE.L (A6),A5 : 
MOVE .W -18(A6), (A5) ;PUT THE ORIGINAL CODE BACK TO ITS PLACE 
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NOT SUB: 


DoPLY : 


SKP_C4: 


LOOK : 


BO NTH: 


SxPDSPLY: 


ps. ORE : 


CME ie 
BEO: 
SUB. 
Chile 
BNE. 
erie, 
BNE. 
BSR 
BSR 
Ter. 
BEO.S 
BSR 

MOVE. 
LEA 

ee. 1 
BBO .S 
MOVE . 
MOVE . 
SUB .L 
BNE.S 
MOVE . 
BRA 


(0 We 


to 


Bol . 
BeLR. 
BGR . 
BioET . 


L 


L 


L 
W 


L 


B 
B 
5 
B 


#0, 20 (A6) 
NOT SUB 
#1,20 (A6) 
0), DESENSTEP 
DSPLY 
#0, 20 (A6) 
SKPDSPLY 
UPLOAD 
SCNTS 
COP_ENB 

SKP_ C4 

F UP LOAD 
#5,D4 
BRKPT1, A6 
#0, (A6) + 

DO NTH 
-4(A6),A5 
eno), (AS) 
#1,D4 

LOOK 
#MAIN, 18 (SP) 
RESTORE 


#7,16(SP) 
#6,16(SP) 
#4,16(SP) 
#5,16(SP) 


) LEDER SRREARKEOUNT IS ZERO, DON’T DECREMENT 
; IT. SO EVERY TIME THAT ADDRESS IS REACHED 
7A BREAKPOINT WILL OCCUR. 

7; IE DISE LAW eEeS SET, THEN PISPLAY THE 
;RESULTS TO THE USER EACH TIME THAT 

; ESSREACHED? REGARDLESS OF ITS COUNT. 

ple DISPisae (SEP fSeN@Ie SET, THEN DISPLAY 
;ONLY WHEN ITS COUNT DECREMENTS TO ZERO, 

; SEND BACK THE MOST RECENT BREAKCOUNTS. 


f 
e 
f 
e 
f 


° 
f 


;RESTORE ALL ORIGINAL INSTRUCTION CODES 
;HAVING BREAKPOINTS BEFORE RETURNING TO 
;MAIN. 


° 
f 


;IF DISPLAYED THEN LOOP IN MAIN WAITING FOR 
7 DoE NEAT ©COMMANES. (sO PUT MAIN ADDR IN 
;ITS PLACE ON THE STACK). OTHERWISE DON’T 
;RETURN TO MAIN PGM, INSTEAD CONTIUNE WITH 
Blnb ea CULEONSOF THE NEXT INSTRUCTION. 

, SbLlell OF "STAUS REGISTER. 
PeCLEAR ST OSOF STATUS REGISTER. 


; WILL BE IN SUPERVISOR MODE ON EXIT. 


(TRACE ALL). 


MOVEM.L (SP)+,D3-D4/A5-A6; 


RTE 


/* TRAP HANDLER Routine Ends 


/* Interrupt Level 6 


Function: 


Modified 
Registers: 


Catled by: 


x / 
QARORT: 


ORT 
ANDI. 
ADDI. 
BRA 


ABORT arranges the Stack 
HANDLER Routine), 


SP, 


In case oOfelevel 6 


SR. 


provide ABORT. 


= 


#MASK_7,SR 
#S2FFF,SR 
#2,2(SP) 
TRAPH 


(ABORT) HANDLER Routine Below */ 


(for compatibility with the TRAP 


and branches to TRAPH. 


Interrupt, which is generated to 


;DESABLE INTERRUPTS. 
,;DISABLE TRACE. 

PCOMPRNSATE SE OCR SUBTRACTION. 
, CONTINUE WIDH TRAPPE. 
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/x Interrupt Level 6 (ABORT) HANDLER Routine Ends */ 
/x  STACKFRAME Routine Below */ 

Function: STACKFRAME just arranges the stack. The address of this 
routine is placed in the exception vector table entries, 
for unimplemented exceptions. The purpose is to prevent 
system crash, when those unimplemented exceptions occur. 

Modified 

Registers: SP. 

Called by: In case of unimplemented exceptions. 

/ 

STACKFRAME:ANDI.W #S2FFF, (SP) ; DESABLE TRACE? 
ANDI.W #INTR_ENB, (SP) ; ENABLE INTERRUPTS. 
MOVE.L #MAIN,2 (SP) ; 
aa : 

/*  STACKFRAME Routine Ends */ 

/* GETLONG Routine Below */ 

Function:  GETLONG receives a longword, which is sent by the Macintosh. 

Modified 

Registers: D3, which passes the received longword to the calling routir, 

Called by: DOWNLOAD, GO, MEMWRITE, MEMDISPLAY. 

agi 
GETLONG: MOVEM.L D0O-D2/D4-D7/A0-A7,-(SP) ; 
MOVE.L #8,D6 ; COUNTER TO SHIFT LOW BYTE TO HIGH BYiime 
JSR RUART+ROM ;GET BYTE #3 OF LOAD ADDRESS. 
Bob. DG; Ds ;SHIET 12 2Os1ts Lace. 
JSR RUART+ROM ;GET BYTE #2 OF LOAD ADDRESS. 
LSL:. L Ben be ; 
JSR RUART+ROM ;GET BYTE #1 OF LOAD ADDRESS. 
SiG BiG? Bs ;MOVE BYTE #1 IS POSPRIOre 
JSR RUART+ROM ;GET BYTE #0 OF LOAD ADDRESS. ( LS BYTE) 
MOVEM.L (SP)+,D0-D2/D4-D7/A0-A7; 
RTS ;RETURN TO CALLER. 
/*  GETLONG Routine Ends */ 
/*  SENDERROR Routine Below */ 


Function: 


SENDERROR sends a lot of successive zeros, which will 
cause a Frame Error, and its detection on the Macintosh. 
So, Macintosh will know that something went wrong during 
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Modified 
Registers: 
Called by: 
2/ 
SENDERROR: MOVE . 
STEP 1: JSR 
SUB. Bb 
BNE. o> 
MOVE. 
STEP 4; MOVE . 
mEP2; MOVE. 
Se EP 3: DBF 
SUB .W 
BNE.S 
SUB.W 
BNE. S 
ros 


/x SENDERROR 


= SCNTS Rout 


transmission of data to the ECB. 
RUART, DOWNLOAD, LDREGTBL. 


B #BRKCOUNT,DO ; THAT MANY TIMES ZERO BITS WILL BE SENT. 
SEND ZER+DELAY1 ;SEND A ZERO. 
#1,D0 ; 
STEP1 : 

W #MAXINT,DO A 

W #10,D1 DeOR@ LOX) LOOMMACRO =SECOND DELAY . 

Pot) DZ : 
BZ, STEPS 7,100" MICRO SECOND DELAY. 
#1,D1 
STEP2 
#1,D0 
STEP4 


Me “Sle “Ne Bo 


Routine Ends */ 


ine Below */ 


Function: SCNTS sends the most updated BreakCounts to the Macintosh. 
Modified 
Registers: None. 
Called by: TRACEHANDLER, TRAPHANDLER. 
/ 
SCNTS: MOVEM.L D3-D4/A6,-(SP)_ ; 
MOVE.L #5,D4 ; 
MOVE.L #BRKCNT1+2,A6 ; 
"ORALL: MOVE.B (A6)+,D3 ; 
JSR ROM+SUART ; 
MOVE .B (A6)+,D3 ; 
JSR ROM+SUART , 
ADDA.L #2,A6 ; 
SuB.L #1,D4 : 
Bik. > FORALL ; 
MOVE.B VIOL FLAG,D3 ;SEND PRIVILAGE VIOLATION CODE. ($55 FOR YES, 
wok ROM+SUART ; SAA FOR NO). 


MOVEM.L (SP)+,D3-D4/A6_ ; 


RES 


= SCNTS Rout 


ine Ends */ 


155 


/*  TRACEHANDLER Routine Below */ 
Functewvon : TRACEHANDLER handles the Trace case. 
Modified 
Registers: SP, SR. 


Called by: In case of Trace (Trace All or Trace Branch). 


4 
TRACEHANDLER: MOVEM.L D3-D4/A5-A6,-(SP) ; 
MOVE.L 24(SP),D3 ; [D3] = FAULTING INSTRUCTION ADDRESS. 
MOVE.W #4,D4 ; 
LEA BRKPT1, A6 ; 
SEEK: CMP lL sae, be ; 
DBEQ D4, SEEK : 
CMP.W #0,D4 ; 
BLT SRC_FAIL : 
MATCH: SUB.L #4,A6 ; 
MOVE.L (A6),A5 : 
MOVE.W (A5),-18(A6) ; 
MOVE.W #TRAP_15, (A5) ‘ 
SRC_FAIL: MOVEM.L (SP)+,D3-D4/A5-A6; 





BTST.B #6,TBL SR 

BNE.S TRC BRA 

BTS T 2a Sloe 

BNE.S TRC ALL 

BRA NO TRACE 
TRC_BRA: CMP.B  #1,FIRSTINST 

BEQ.S NOT SHOW 


BSR UPDATETBL3 
BSR UPLOAD 
BSR SCNTS 


Se COP _ENB IF USER DOES NOT ENABLE COPROCESSOR 


BE@ns SKE aes 


“ee ‘"e ‘Ze “Me “Se “me ‘se “e "ee Ne Ne “Ne "ee 
————— 


BSR UPDTFLTBL 
BSR FUPLOAD ; 

SKE VCS: ANDI.W #S2FFF, (SP) ;DISABLE TRACE. T1-TO -> NO TRACE. 
BSET.B- #5, (SP) ;WILL BE IN SUPERVISOR MODE ON EXIT. 
MOVE.L #MAIN,2 (SP) ;WILL RETURN TO MAIN PROGRAM. 
BRA FINE ; 

NOT SHOW: BCLR.B- #7, (SP) ;SHOULD BE TRACE ALL. 

~ BSET.B #6, (SP) :T1-TO —> TRACE Ani 

BRA FINE : 

TRC ALL: BSR UPDATETBL3 ; 
BSR UPLOAD : 
BSR SCNTS ;SEND THE MOST RECENT BREAKCOUNTS. 
rT COP ENB ;IF USER DOES NOT ENABLE COPROCESSOR | 
BEQ.S  SKP C6 ; 
BSR UEDIELIBL ; 
BSR FUP LOAD ; 

SKE (CG. ANDI.W #S2FFF, (SP) ;CLEAR TRACE BITS NOT TO TRACE OURSELVES 
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BSET.B_ #5, (SP) 
MOVE.L #MAIN,2 (SP) 


,Wilbh BE IN SUPERVESOR MODE ON EXIT. 
;WILL RETURN TO MAIN PROGRAM. 


BRA FINE : 
NO TRACE: BCLR.B_ #7, (SP) ; SINCE USER WANTS NO TRACE, CLEAR Tl. 
FINE: MOVE.B #0,FIRSTINST ;NOT FIRST INSTRUCTION ANYMORE. 

RTE ; 


/x* TRACEHANDLER Routine Ends */ 


/x* VIOLHANDLER Routine Below */ 
Function:  VIOLHANDLER handles Privilage Violations. 
Modified 
Registers: SP. 


Called by: In case of Privilage Violation. 


"/ 
VIOLHANDLER: 
MOVE.B #$55,VIOL FLAG ; 
ADD.L #2,2(SP) ; COMPENSATE FOR THE SUBTRACTION FOR 
;BREAKPOINTS IN TRAPH ROUTINE. 
BRA TRAPH ;SINCE BOTH PRIVILEGE VIOLATION AND THE 


/x VIOLHANDLER Routine Ends 


/x CALL (Subroutine Test) 


2aLL: 


mM CALL (Subroutine Test) 


WORD 


TRAP 15 


/* MEMORY ALLOCATION 


ee eee ene CAMS > TACK FRAME : 
*;PC POINTS TO FAULTING INSTRUCTION. 


/ 


Below */ 


maPPT i : LONG $0000 ;THIS WILL BE USED FOR SAVING CODE PARTS 
IMPPT2: LONG $0000 pPRRBINOUl OF SCODE FOR TRAPIS INSERTION. 
TMPPT3: LONG $0000 ;TMPPT1 WILL HOLDTHE PIECE OF CODE TAKEN 
IMPPT4; LONG $0000 POUT EO REN SER ETON A TRAP 15 CODE FOR 
EMPP T'S : LONG $0000 ; BREAKPOINT #1 (BRKPT1). 

eeKPT 1: LONG $0000 ; Do oe BE USED FOR STORING THE 
3RKPT2: LONG $0000 ; ADDRESSES AT WHICH THE BREAKPOINT 
BRKPTS3 : LONG $0000 puto eOCCUR.. 

3RKPT4: LONG $0000 PACCREE SPONDING TO 3 DIFFERENT BREAK _ 
BAKE TS : LONG $0000 PROLNTS) = 

3RKCNT1: LONG $0000 ; THE BREAKPOINT COUNTS ASSOCIATED 
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BRKCNT2: LONG $0000 *;WITH EACH BRAEKPOINT WILL BE STORED 


BRKCNT3: LONG $0000 ;AT THESE BRKCNTx (1 THRU 5). 
BRKCNT4: LONG $0000 ; 
BRKCNT5: LONG $0000 ; 
SAVEAO : LONG $0000 ;AO WILL BE SAVED HERE TEMPORARILY. 
SAVEDO: LONG $0000 ;DO WILL BE SAVED HERE TEMPORARILY. 
SAVESR: WORD $0000 ;THE STATUS REG. WILL BE SAVED HERE. 
SAVECODE: BYTE $00 ;TEMP STORAGE FOR MAC CODE. 
FIRSTINST: BYTE $00 ;THIS IS FOR FIRST INSTRUCTION WHICH 
; WLLL BE TRACED FOR SINGLE STEP. 

DISP_ STEP:BYTE $00 ;WILL THE STEPS BE DISPLAYED OR NOT ?.. 
VIOL FLAG: BYTE $00 :PRIVILAGE VIOLATION FLAG. 
COP_ENB: BYTE $00 ;USER WANTS TO USE COPROCESSOR. 
LAST: NOP ; 

END 


/* ECB ROM Resident Routines End */ 
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APPENDIX D: SERIAL COMMUNICATION IN SOFTWARE 


RECEIVING 


Level four interrupt is used to sense the RS232 input. An interrupt is 
generated when a logic one is present at RS232 input. But before this 
happens, address lines Al9 and Al7 have to be made high, thus enabling the 
AND gate which produces the level four interrupt. 

In order to enable this interrupt, first the address lines Al7 and Al19 
are forced to be HIGH, which is done by JMP INTR_CHK+NEXTx, in RUART 
routine. But, since some amount of time is needed to acknowledge an 
mitcerrupt, several NOP instructions are added following the # £JMP 
eeechkhrNEXTx instruction. This guarantees that previous address stay 
unchanged while the microprocessor executes these NOPs. By doing this, the 
address bits Al7 and Al1l9 are kept high enough for the interrupt to be 
acknowledged by the CPU. 


How incoming bits are sensed ? 


jhe time that CPU spends by executing the JMP INTR CHK+NEXTx, and the 
following several NOP instructions can be considered as a sampling window. 
If an interrupt occurred during the sampling window, program execution is 
continued with the level four interrupt handler routine. This routine 
first forces the address lines Al9 and Al7 to zero, thus disabling the AND 
gate which senses the RS232 line. As a consequence, further interrupts are 
disabled. 

Pemmbowing this instruction, routine clears register Dl. After RTE, 
instruction execution continues from where it was previously. Then 
register Dl, which is set to one before receiving each incoming bit, is 
tested. If its content is zero, this Shows that a level four interrupt did 
occur, which means a logical zero is received from RS232 input. Otherwise, 
if Dl still contains a one, this means that a logical one is received. 


How incoming bytes are received ? 


The receiving routine, RUART, looping all the time, checks for the 
RS232 input. RS232 line, when it is idle, stays at high voltage level. 
After sensing the start bit, eight bits are received and shifted in to 
lower byte of D3. The reception of that byte ends with the detection of 
the stop bits. If a frame error occurs during reception, RS232 input to 


the Macintosh is kept low for a while and the user is alerted. 


1S) 


More detailed information can be obtained from Appendix C. (Source 
code of ecb.asm). 


TRANSMITTING 
i 
SUART routine sends a byte which is in D3. In SUART, first by the 
instruction JSR SEND_ZER+DELAY1, by sending a zero bit the Stamtsaieues 
sent. Here, DELAY1 subroutine provides 104.7 microseconds delay between 
the bits to be transmitted. Following the start bit, eight bits are sent 
which are the bits in the lower byte of D3. JSR SEND ONE+DELAY Im 
SEND ZER+DELAY1 is used in order to sémd@ a ONE Gn ag4ee0 oie. 
More detailed information can be obtained from Appendix C (Source code 
Or ECD. ache 
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APPENDIX E: IMPLEMENTATION OF SOFTWARE ABORT 
ABORT 


Abort is avery beneficial option to the user. About its 
implementation on the ECB: when the Abort button is pressed, a level six 
autovectored interrupt is generated. 

During the first design phase of the debugger it was intended to 
Support the Abort in software. If a long enough Break could be sent to the 
ECB, then this could be interpreted as a user intention for Abort. This 
idea did not work. Because when the user program enters in to an endless 
meop Or just gets out of control (these two situations can occur right 
after Go menu), since the Macintosh will still be waiting for information 
from the ECB (which will never come), the Macintosh will be locked and 
there 1S no way to get out of Go menu and send a Break to the ECB. For 
this reason, the Abort option was decided to be implemented in hardware. 

At this point, the deSign idea was to make this interrupt, a level 
seven, non-maSkable interrupt. But later it was noticed that it would not 
work. Because preSsing the Abort button once, caused many interrupts, each 
non-maskable. To overcome this problem, uSing a debouncing circuit could 
be a choice, but the tradeoff was more hardware. For this reason a level 
Six interrupt was found to be appropriate. In this way, when the Abort 
button is pressed once, it still creates many level six interrupts, but 
only the first one is processed and the rest is ignored. At the entry on 
the Abort handler routine, interrupts are disabled, so the interrupts 
caused by the bouncing of the Abort button is ignored. 
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1- 
2- 


APPENDIX F: OPERATING INSTRUCTIONS 





INSTRUCTIONS 


With Macintosh off, insert Disk “"C Compiler" into Floppy Diskieaigae 

Turn on Macintosh. Macsbug is installed, Lightspeed C is started 
immediately. 

Now, you may select the project. Double-Click the project file: Tutor20 
pi. (Double-Click Tutor20 pi means; move the mouse so the arrow for the 
mouse iS on the line with the name Tutor20 pi, and click the button on 
top of the mouse, twice, quickly.) 

On the upper right corner of the screen, you can see the files, containi 
IinveEhvs ere jecu- 

In order to be able to create your assembly language program, 
double-click, on the G1 le. test. ce 

Now, you may start editing your program. But, it is advisable to make 
test.c the only file you work on, Saving other files, if they exist, . 
using other file names. To save a copy of test.c as backup.c and then be 
able to modify test.c, drag File to Save A Copy As (Drag File to Save A. 
Copy As... means, using the mouse, click button down on the "File" menu, 
hold the button down as mouse is moved down to "Save A Copy As..." and © 
release the mouse.) | 
Type the name of the new file (Actually, a copy of test.c), backup.c 

and hit carriage return. 

Do not alter any of the lines, unless told otherwise. User program area 
is clearly shown in test.c. User should type his program between the 
lines "*** USER PROGRAM ***" and “*** USER PROGRAM ENDSw) 

Labels begin with a "@" sign, followed by digits. (You are not allowed t 
use labels @1, @2, @3, which are already defined and used by test.c 
pregzsam.) 

Hexadecimal numbers begin with a "0x" (Zero Eks), followed by digits or 
a-f Ob sh=u. 

Variables (e.g., 1) are declared in C above the line "“asm{", (e.g., int. 
and are accessed using index addressing with address register A6 and a 
negative offset. 

Drag project to Run. Test.c will be compiled and the debugger will run. 
You should see Apple, File, Functions menus on the screen. 

If you want to utilize MC68881 Coprocessor, or 1£ you want to havea 
hard copy of what is going to be displayed on the screen, or some other 
options; pull down Functions menu and click the mouse on Options menu. 
Here, you will see a button corresponding to each option. You can have 
any option "ON" by just clicking it (When it is darkened, that means you 
have that option, or vice versa). Click "Quit" to get out of that menu. 
If you want to use Coprocessor instructions in your program, you have to 
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have the "Coprocessor™ option at this step, before Downloading. You are 
not allowed to first Download and then select "Coprocessor" option. This 
will lock the system. 

10-Pull down Functions menu and click the mouse on Download option. This 
will download your program to the ECB. Your program will be loaded in RAM 
starting at 1000 (Hexadecimal) address. 

11-Now you need to select "Go" menu. The default Program Counter value is 
1000 Hex. You may change this address if you want to. 
A very important point needs to be explained. That is, if you are going 
to select "Goto" option within the "Go" menu, your program has to end 
Ween a TRAP “#15 instruction, or if you’re going to select "Call" option 
an RTS instruction should be at the end of your program. 


WHAT CAN YOU DO IN A PARTICULAR MENU ? 


When you pull down the Functions menu, you will see the following 

selections. 
01-Download 
02-Go 
03-Registers 
04-Floating Regs 
05-Memory Display 
06-Memory Write 
07-Options 
08-Previous Screen 
09-Clear Screen 
10-Help 


DOWNLOAD 
Downloads the user program from the Macintosh to the ECB, at a Baud 
rate of 9600. After that, the current register values, whatever they were, 
are uploaded from the ECB. 
If Coprocessor will be used, that option should be selected in the Options 
menu, before clicking Download. 


A- GoTo/Call: 
There are two types of program execution, as far as the procedure is 
concerned. They are: 
= Goro 
2- Call 
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The user as to end his program either with RTS or with TRAP #15, depene 
on the situation. This was described above, at step 11. The purpose of 
"Call" is that, with this choice, the user can easily test and 

run his subroutines. 


Return to: 

User has choices about which menu to go after that part of execution 
of his program. the default return menu is “No Menu" where no menu 
displayed, instead the register values, and the instruction following 
the last executed instruction in a disassembled form are displayed. 
Clicking on "Return to", "Registers Menu" is selected, which simply 
displays the "Register Menu". 

Clicking on “Return to" a second time, "Go Menu" is selected, which 
makes the same menu appear again. 


Breakpoints: 

User can set, upto five breakpoints. The "Clear All" option, clears 
all the breakpoints. Hitting the tab, the darkened spot passes through 
the breakcounts first, where user can enter the count he or she wants. 
This number can be in the range (0..9999). After Breakcounts, Breakpoi 
addresses can be entered, just by typing the desired address and hitti 
the tab. If no breakcount was entered for this breakpoint before, its 
value is set to one, automatically. 


Display Steps: 

If this option is made "ON", just by clicking it, every step taken 
during the program execution on the ECB is displayed on the Macintosh ig 
This situation may be useful when the user sets any Breakcount to a valv, 
bigger than one, and still wants to see the outcome of every single ste 
If this option were not used, the information would be displayed after t: 
Breakpoint address is reached as many as Breakcount times. 


Cancel: 
Anything done during this Go Menu session is ignored. 


Go: 

A final step in Go Menu. Clicking "Go" will download the most updated 
register values, breakpoint information, and then the program execution — 
will start. 


REGISTERS 


A- 


When selected displays MC68020 register information, interrupt leve: 
and condition codes. 


Registers: 

All the data, address and control registers are displayed. Any of 
these registers can be modified just by entering the desired content and 
hitting the tab. | 


164 


G- 


Clear All: 
When clicked, clears all data registers, and all address registers 
except A7, which is the stack pointer. 


Active Stack Pointer: 
A7 entry shows the active stack pointer. Default is "User Stack Pointer' 


Clicking A7 once, switches to "Interrupt Stack Pointer". Clicking A7 once 
again, Switches to "Supervisor Stack Pointer". 


Condition Codes: 

Displayed as radio buttons, where darkened one means that bit is set. 
User can change condition code values either by clicking it, or by 
modifying the Status Register. 


Go: 

When clicked, does the same function as what it would do in "Go" menu. 
But there is a condition. The Registers menu should have been called by 
"Go" menu, which means that, in Go menu "Return to" field was “Registers 
menu" before the last clicking of Go. This option is provided just for 
presenting some ease to user. Because this way he does not need to go 
through "Go menu". If the above condition does not hold, clicking 
"Go" does not mean anything, nothing happens. 


Interrupt Level: 

Every clicking, increases the interrupt level by one. This field can 
also be changed by modifying Status Register. Since it will crash the 
system, the user is not allowed to set the Interrupt Level to a value 
greater than three. (Level four interrupt is used for establishing serial 
communication. If a higher level interrupt were allowed this could crash 
serial communication mechanism). 


Owsiek : 
Simply quits the Registers menu. 


FLOATING REGS 


When selected, MC68881 Floating Point Register information, FPCR 
(Floating Point Control Register), FPSR (Floating Point Status Register), 
FPIAR (Floating Point Instruction Address Register), condition codes, 
Exception Status/Enable byte are displayed. This menu can be selected only 
when Coprocessor option is turned On in the Options menu. 

Eight Floating Point Registers are displayed, each consisting of four 
fields. These fields are: Exponent, sign of exponent, mantissa, sign of 
mantissa. Each field is modified by the user separately. User may modify 
FPCR, FPSR, FPIAR, by typing the desired value and hitting the tab. User 
may also modify condition codes, or Exception Status/Enable bits by just 
eeuecking them. 
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Ae Oul ts 
Simply quits the Floating Regs menu. 


MEMORY DISPLAY 


The maximum number of bytes to be displayed at once is 500. 


A= ETom: 
The beginning address of memory display needs to be entered here, 
by just typing that address and hitting the tab. 


B= “fee 
The ending address of memory display needs to be entered here, 
by just typing that address and hitting the tab. 


C=RSi ze: 
Size is the number of bytes to displayed, which is automatically 
calculated and displayed (size=from-to). Entering any one of from 
or "we", and “size" will werk asmve lie 


D- Disassemble: 
The memory is displayed in a disassembled format, one instruction per! 
line. 


E> Cancel 
Simply ignores that Memory Display session. 


B= Disp ans 
Clicking Display, causes the display of the desired memory locations. 


MEMORY WRITE 
When selected, user is able to modify any memory location. That 

memory location can be Byte, Word (two bytes), or Longword (four 
bytes) in length. In case Increment/Decrement option is selected, 
"Location" is Incremented/Decremented by one, two, or four, according to 
the data length being modified. 
When "No change" is selected, “Location" is not modified, so following 
writes occur to the same memory location. 


A- Location: 
The address of the memory location to be modified. User can enter the! 
address by just typing it and then hitting the tab. 


B- Contents: 


Here, user has to type the new content of that memory location. The | 
memory write is done only, when the user hits the tab. 
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C- Verify: 


When selected, a memory write to that location is done, following 
that, a memory read is performed from the same memory location. This 
value is sent back to the Macintosh, where it is compared against the 
desired content, by the debugger. If an error is detected, user is alerted. 


D— Quit: 
Simply quits the Memory Write menu. 
OPTIONS 
When this menu is selected four options will be displayed. Clicking 
any of these options, will toggle it (ie., turning it ON and OFF). The 
following describes what is done when any particular option is selected. 
fm Hardcopy: 

Whatever seen on the screen is also sent to a serial printer. This 
option might be useful especially when user dumps large number of bytes 
of memory. 

B- Coprocessor: 

If user wants to access Coprocessor this option should be selected 
before Downloading. Turning this option on enables the "Floating Regs" 
menu, which would not be accessible by the user, otherwise. 

C- Refresh Screen: 

Following a Quit from any menu, instead of displaying a blank screen, 
a screenful information is displayed. This information is obtained from a 
Circular queue, which contains the last displays on the screen. 

D- Experienced: 


If the user is not experienced he is not allowed to change interrupt 
levels. 


PREVIOUS SCREEN 


When selected, the last screenful information is sent to the serial 
printer. In a sense, it is like a hardcopy of Refresh Screen. 


CLEAR SCREEN 


When selected, clears the screen. 


Displays help information. 
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APPENDIX G: SAMPLE ASSEMBLY LANGUAGE PROGRAMS 


A- Sample Program #1 


The following program, copies the elements of ARRAY A to ARRAWEEs 
Each element is one byte long. 


i- Source Code 


: xx Sample Program #1 ** 





;Label Opcode Operand Comment 

;Field Field Field Field 

ARRAYA: BLKB 5 ;DEFINE ARRAY A 
ARRAYB: BLKB 5 7DEFINE ARRAY B 


; ASSUME ARRAY A HAS SOME VALUES 


td 


LEA ARRAYA, AO ;AQ POINTS TO ARRAY A 
LEA ARRAYB, Al *Al POINTS TO ARRAY B 
MOVE .B Po 0 ;FIVE ELEMENTS TO BE COPIED 

LOOP : MOV (AQ) +, (Al) + ;COPY ELEMENT OF A TO ELEMENT OFS 
SUB 7 DO ; DECREMENT THE COUhMTEE 
CMP .B #0,D0 ;FIVE OF THEM COLES : 
BNE LOOP ;NO...., CGE Y ONE MoRE:. 


DONE: 
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ii- Listing 


2500 A.D. 68000 Macro Assembler - Version 4.03a 


AE ayenbher 


Filename : samplel.asm 


Output Filename : samplel.ob}j 


; x* Sample Program #1 ** 
; Label 
;Field 
00000000 ARRAYA: 
00000005 ARRAYB: 
;ASSUME ARRAY A HAS SOME VALUES 
OOO0000A 41F9 0000 0000 
00000010 43F9 0000 0005 
MOO000016 103C 0005 
OOO0001A 12D8 LOOP : 
BOOOO001IC 5300 
OOOO0001E OC00 0000 
MO000002Z2 66F6 
00000024 DONE : 


Lines Assembled 


ZS 


Opcode Operand Comment 


Field Field Field 

BLKB S ;DEFINE ARRAY A 

BLKB 5 PDEA NE ARE ae 

LEA ARRAYA, AO ;AO POINTS TO ARRAY A 

LEA ARRAYB, Al ;Al POINTS TO ARRAY B 

MOVE.B #5,D0 ;FIVE ELEMENTS TO BE 

; “COR TED 

MOVES (20) +, (nly COPY” "ELEMENT OF A TO 

SUB.B #1,D0 ; ELEMENT OF B 

CMP.B #0,D0 ;FIVE OF THEMBCOPIED 7. . 

BNE.S LOOP pNCre COP YSONE MORE. 
Assembly Errors : 0 
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Te Ne Ne Be Be We Ne We We 


B. Sample Program #2 


Source Code 


/*x Sample2.asm **/ 


The following program is to give an idea about the usage 
of Coprocessor commands. Here the instructions are given 
in their open form, the mnemonics of these commands are 
given in the comment field. 


Dee 
Bex 


=o 


SF200 
$12B6 


SE 236 
$4300 
$0000 
$0006 


#2,D6 
SF206 
$4322 


;FSINCOS.X FP4,FP5,FP6 

;FP4 <- X (Prior to execution) 
;FP5 <- SINE(X), 

;FP6 <- COSINE (X) 


;FMOVE.L #6,FP6 


f 
f 


f 


; 
/FADD.L Dewees 


fi 
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